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VICNNTERRUFT 


VIC-20 er en lidt 
gammeldags 
computer, men 
udnyttes den 
rigtigt har den 
masser af 
muiigheder. 
Vores lceser 
Rune Gunder- 
sen kommer i 
denne artikel 
ind pa inter¬ 
rupts, og hvor- 
dan du def me¬ 
rer funktions- 
tasterne pa en 
smart mdde. 


■ I denne artikel beskceftiger 
vi os med interrupt-program- 
mering pd en almindelig 
VIC-20 uden udvidelser. For 
at Id forstdelse al denne arti¬ 
kel md man dog have et for- 
udgdende kendskab til ma- 
skinkode piogrammering i 
6502-processoren, det ville 
vcere alt lor omlattende at 
komme ind pd det her. 
VIC-20's operativ-system er 
interruptstyret. Det vil sige. at 
60 gange i sekundet testes 
stopknappen, og systemuret 
forages. Prov lor eksempel at 
skrive FORT = 1T03000:NEXT. 
Tryk pd return og derefter 
nogle andre taster. Ndr FOR. 
NEXT slojfen er fcerdig, vil de 
sidste indtastede bogstaver 
vise sig. Dette er fordi at 
VIC-20's keyboard ogsd er in¬ 
terrupt styret. 

Interrupt vektoren ligger i ad- 


resserne 788 og 789. Hver 
0.016 sekund kigger 6502 pro- 
cessoren pd disse steder og 
hopper til en rutine, angivet 
ved den mest betydende by¬ 
te (adrs./256) i lokalition 789. 
og den mindst betydende by¬ 
te i lokalition 788. 

Ndr man skal lave sin inter- 
rupt-rutine. md man forst 
cendre vcerdien i disse posi¬ 
tioner til den adresse, hvor 
man har placeret sin egen in- 
terruptrutine. Inden dette md 
6502 have besked om, at den 
skal stoppe med at lcsse inter¬ 
rupt vektorerne (PEEK (788). 


PEEK(789)). Dette gores med 
SEI( 120). 

Ndr den nye adresse er lagt 
ind i interruptvektorerne, 
genstartes processoren med 
CLI(88). Tilsidst returneres til 
BASIC med RTS(96). Ndr dette 
er gjort, kan man gd i gang 
med sin egen interruptrutine. 
Den nye interrupt rutine md 
afsluttes med en JMP(76) til 
den gamle interrupt rutine 
dvs. 76.191(PEEK(788)), 234 
(PEEK(789)). 

Jeg vil nu vise det forste eks¬ 
empel pd en udnyttelse af in¬ 
terrupt vektorerne. 










10 DATA 120 :REM SEI // INTERRUPT PAUSE 

20 DATA 169,45 : REM LDA# 45 // LfES DEN LAVE BYTE FOR ADRESSEN 

30 DATA 141,20,3 :REM STA 788 // GEM I VEKTOR 788 

40 DATA 169,28 :REM LDA# 28 // LfES DEN H0JE BYTE FOR ADRESSEN 

50 DATA 141,21,3 :REM STA 789 // GEM I VEKTOR 789 

70 DATA 88 : REM CL I // FORSfET INTERRUPT 

80 DATA 165,197 : REM LDA 197 // LfES DEN NEDTRYKKEDE TAST 

90 DATA 201,39 :REM CMP#39 // ER FI NEDTRYKKET 

100 DATA 208,3 :REM BNE 3 // HVIS NEJ SA HOP 3 FREM S 

110 DATA 238,15,144 :REM INC 36879// POKE 36879,PEEK <36879)+1 yf 

120 DATA 76,191,234 : REM JMP 60095// AFSLUT INTERRUPT 

130 DATA -1 

140 READA : IFA <> —1THEN POKE 7200+T, A:T=T+1 :G0T0140 
150 SYS7200 
1£0 END 


Det ses at linie 20-50 scetter in¬ 
terrupt rutinen til adresse 
7213, (ordi 

45 + 28*256 = 7213. 

Kar programmet og prav at 
trykke pd F1 sd tit du vij, Hvis 
programmet albrydes at en 
R/S +RESTORE, skal du gen- 
starte interrupt-mtinen med 
SYS7200. 

Det kan vcere. du kan se de 
mange muligheder ved brug 
at intermpt. Lad os ncevne 
cursor sty ring med joystick, 
gratik. 1yd og du kan sdgar 
lave dine egne kommandoer 
ved hjCBlp at JSR115 
(CHRGOT). som henter nceste 
BASIC karakter ind og under¬ 


soger den. 


5 REM DEFINERING AF FUNKTIONSTASTER PA VIC-20 

10 DATA 120.169,45,141,20,3, 169,28,141,21,3,88,96s REM INTERS' 





20 DATA 165,197,174,141 .2 
30 DATA 201,39,208,7 
40 DATA 224,1,240,3 
50 DATA 238, 15, 144 
60 DATA 201,39,208,9 
70 DATA 224,1,208,5 
80 DATA 160,27,140,15,144 
90 DATA 201,47,208,9 
100 DATA 224,1,240,5 
110 DATA 160,255,140,138,2 
120 DATA 201,47,208,9 
130 DATA 224,1,208,5 
140 DATA 160,0,140,138,2 
150 DATA 201,55,208,9 
160 DATA 224,1,240,5 
170 DATA 160,100,140,40,3 
180 DATA 201,55,208,9 
190 DATA 224,1,208,5 
200 DATA 160,112,140,40,3 
210 DATA 201,63,208,9 
220 DATA 224,1,240,5 
230 DATA 160,200,140,7,3 
240 DATA 201,63,208,9 
250 DATA 224,1,208,5 
260 DATA 160, 199, 140,7,3 
270 DATA 76,191,234,-1 


!REM A=PEEKJ197):X=PEEK(653) 

:REM ER A=39: NEJ HOP +7 
!REM ER X=1s JA HOP +3 
:REM PEEK(36879)-PEEK(36879)+! 
: REM ER A=39! NEJ HOP +9 
: REM ER X=l: NEJ HOP -*-5 
!REM y=27:POKE 36879,y 
:REM ER A=47:NEJ HOP+9 
:REM ER X=l: JA HOP +5 
:REM y=225: POKE 650, y 
! REM ER A=47: NEJ HOP +9 
:REM ER X=l: NEJ HOP +5 
:REM y=0:POKE 650,y 
:REM ER A=55: NEJ HOP +9 
:REM ER X=1!JA HOP +5 
!REM y=100 s POKE 808, y 
SREM ER A=55: NEJ HOP +9 
!REM ER X=l: NEJ HOP +5 
:REM y=l12! POKE 808,112 
: REM ER A=63i NEJ HOP +9 
:REM ER X=1: JA HOP +5 
:REM y=200: POKE 775,y 
:REM ER A=63: NEJ HOP +9 
:REM ER X=1!NEJ HOP +5 
:REM y=199: POKE 775, y 
:REM END OF INTERRUPT 


280 READA:IFA0-1 THEN POKE 7200+T,A:T=T+1:GOTO 280 
290 SYS 7200 
300 NEW 



JPT FRA ADRS.7213 

For at programmer specielle 
taster skal du bmge PEEK( 197) 
og undersage hvilken tast der 
er nedtrykket. 

FI =39, F3 = 47, F5 = 55, F7 = 63. 
Hvis F2, F4. F6 ogsd skal deti- 
neres md du undersage PEEK 
(653). Hvis denne lokation er 
lig 1 er SHIFT nedtrykket. hvis 
den er lig 2 er Commodore 
tasten nedtrykket. 

I det sidste eksempel viser jeg 
hvorledes PEEK(653) bruges 
tor at undersage om SHIFT ta¬ 
sten er nedtrykket. Efter pro¬ 
grammet er kart vil F tasterne 
vcere defineret sdledes: 

FI Giver en ny farve 
F2 Normal farve 
F3 Repeat af alle taster 
F4 Normal repetering 
F5 Udelukker brug af RS + 
RESTORE 

F6 Normal R/S + RESTORE 
F7 List stop 
F8 Normal listning 
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Break feber 

■ Som afveksling for de man¬ 
ge blodige krigsspil til compu- 
tere, er det ganske afslap- 
pende. nar der ind imellem 
kommer danseprogrammer. 
Break Dance Ira Epyx var del 
torste spil udi de nyeste dan- 
setrin. Den netop udsendte 


Break Fever fra Interceptor 
iolger i samme spor, men er 
langt fra sb afvekslende og 
udfordrende som forbilledet. 
Til gengceld er lyden og mu- 
sikken mere breaked' hos In¬ 
terceptor. 

Grafikken i Break Fever er su- 
perflot. men du bliver des- 
vcerre hurtigt trcet af begiven- 
hederne. Trcet bliver din 


88iB8 


HI-SCC 


1001 not 

■ Holder du af Tusind-og-en- 
nat. hvor fakirer og andet 
godtfolk med sans for tilslore- 
de kvinder og flyvende tcep- 
per udgor hovedpersoneme, 
vil du uden tvivl kunne lide 
Jinn Genie spillet fra Micro- 
mega. 

Her befinder du dig i den fjer- 
ne Orient, hvor du skal for- 
soge at nedkeempe en gru- 
som bande, der truer med at 
overtage ledelsen i den gyld- 
ne by. 

Din forste opgave lyder pb at 
eliminere de flyvende djeev- 
le, som racer mndt om dit 
flyvende tceppe og forsoger 
at gore det af med dig. 

Nbr du forst frem til sultanens 
palads, hedder problemet at 
finde et vindue, der kan bb- 
nes. Men pas pb. Vagteme er 
brvbgne, og de kan kun 
skreemmes bort for en tid ved 
hjeelp af alverdens forban- 
delser. 

Inde i paladset gcelder det 
om at fb tcendt alle fakler for 
at skreemme markets veesner 


bort. Har du fundet den magi- 
ske krukke og befriet den go- 
de hersker, er din opgave sb- 
dan set klaret. Du har reddet 
den gyldne by mod under¬ 
gang. 

Forbryderne fik du imidlertid 
ikke has pb. De flygtede lyn- 
hurtigt til nceste oaseby. hvor 
du sb kan genoptage be- 
kcempelsen. 

Grafikken i Jinn Genie er 
meget Hot og uscedvanlig far- 
verig. Micromega har ramt 
atmosfeeren fint, og spillet 
fcengsler brugeren effektivt. 
nbr han/hun forst er kommet 
igang. 

Kort sagt, Jinn Genie er en 
udmeerket mbde at undslip- 
pe det grb og kedelige vinter- 
vejr i Danmark. Tcend for 
computeren og du befinder 
dig blandt smukke, morklo- 
dede og mystiske haremsda- 
mer. (PCS).D 


Grafik: 

Lyd: 

Action: 

Spcending: 

Pris/kvalitet: 


Eliten blandt 
helikoptere 

■ Elite's nye nit i England, 
Airwoli, horer til den store 
gmppe af spil. hvor du skal 
flyve en helikopter eller et 
rumskib enten ude i rummet 
eller dybt under jorden. 
Airwoli foregbr under jorden, 
men er sb afgjort ikke som al¬ 
le andre. Elite har gjort meget 
for at gore spillet bedre, og 
det er da ogsb lykkedes gan¬ 
ske godt. Airwoli bygger i 
ovrigt som Here andre fra Elite 
pb en amerikansk TV-serie. 
Som pilot i den ultradyre heli¬ 


kopter Airwoli er din opgave 
at befrie 5 vigtige viden- 
skabsmeend, der holdes fan- 
get dybt nede under Arizo¬ 
na's svedne orken. 
Helikopteren skal treenge ned 
gennem et kompliceret for- 
svarsanlceg ved at destruere 
en rcekke kontrolbokse pla- 
ceret mndt omkring i de un- 
derjordiske gange. Hver 
gang en boks skydes, bbnes 
der et andet sted mulighed 
for at du kan treenge videre 
ind i systemet. Efter en lang 
og kreevende flyvning nbr du 
ned til den forste videnskabs- 
mcend, der - ligesom de 4 
andre - forst skal bringes sik- 
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kert hjem til basen. tar du kan 
tortscette mod den nceste 
mand i rcBkken. 

Undervejs pd din tarefulde 
redningsmission mader du 
bl.a. hidsige lasere, kanoner, 
mure som skal nedskydes, tar 
de automatisk tomyes, tarlige 
radarer og sdgar en UFO-lig- 
nende tingest. 

Airwolf kan i starten virke 
meget svcert og kedeligt. Vi 
kan dog roligt betro lceseme, 
at det sandelig cendres, sd 
snart de tarste torhindringer 
overvindes. Bare veer lidt tdl- 
modig. Gratikken er flot 
(modsat lyden), hvilket lige- 
trem tdr spilleren til at sidde 
tryllebundet ved skeermen. 


Jagt langs 
flodlejet 
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Spcending: 

Pris/kvalitet 


bare tor at komme til at se det 
nceste skcermbillede i syste- 
met. 

Det er da heller ikke uden 
grund, at Airwolf meget hur- 
tig er gdet til tops pd de en- 
gelske hit-lister. Godt gjort. Eli¬ 
te! (microdealer & PCS) 


Gratik: 

Lyd: 

Betjening: 

Action: 

Pris/kvalitet: 


■ River Paid tra Activision 
giver ikke helt samme tota- 
ludnyttelse at 64'erens lyd og 
gratik, som vi ellers er tor- 
veent med tra Activisions si¬ 
de. Spillet er dog speendende 
nok, fordi det formidler en 
helt sceregen atmostcere. 
Som pilot i en angrebsjager 
skal du suse langs flodbred- 
den i lav hajde lor at undgd 
tjendtlig radar. Undervejs ren¬ 
der du ustandseligt ind i tor¬ 
hindringer. Det kan veere 
spcerreballoner, der er kom- 
met ud at kurs, krydsende tor- 


pedobdde, kanonkugler el- 
ler modstanderens overvdg- 
ningstly. 

Din vigtigste opgave er at af- 
skeere tjendens torsynings- 
tropper, der betinder sig pd 
den ene tlodbred. Den bedste 
mdde at gare det pd er at 
smadre alle broer. du mader. 
Men det kreever bdde omhu, 
thi broerne er at forskellig 
konstruktion og hajde, og pd- 
passelighed, tordi dit jagertly 
rdder over en begreenset 
mcengde breendstot. 
Optankning kan ske Ira lorsy- 


ninasnunkter undervejs. De 
markeres automatisk pd 
landskabet, der ses ovenpd 
gennem hele River Raid. 
Spillet er som helhed accep- 
tabelt, men vi savner spcen¬ 
ding og atveksling. (CBS).D 


Gratik: 8 

Lyd: 8 

Action: 7 

Spcending: 7 

Pris/kvalitet: 8 


breakdancer pd skeermen 
ogsd, og sd talder han sam- 
men som en gammel klud. 
Hvilket tdr computeren til at 
kommentere "You is Bad 
News" i bedste Brooklyn-dia- 
lekt. 

1 Break Fever kan du stille op 
i forskellige discipliner. Hvis 
du ikke kender betegnelser- 
ne i lorvejen, lcerer du dem 
hurtigt: Turtle, Backspin og til 
sidst Space Shuttle, hvor du 
skal !d danseren til at dreje 
rundt pd en finger. En ret sd 
vanskelig opgave, der kree¬ 
ver fuldstcendig kontrol over 
joysticket. 

Som ncevnt er lydsiden tin-tin, 
og Interceptor har halt den 
gode idd at lcegge sound- 
tracket pd den anden side at 
kassettebdndet. Det kan du 
sd bruge, hvis du skal holde 
test, - eller mdske treene selv 
i breakdance. (Twilight).□ 


mer for tcet pd cyclonens 
centrum, bliver helikopteren 
kastet hid og did at de kratti- 
ge vindstad. 

Da medicinkasseme tit gem- 
mer sig bag en skreent eUer et 
hus er det nadvendigt at skit- 
te trem og tilbage mellem 2 
forskellige synsvinkler tor ikke 
at overse noget. 


Alt i alt er Cyclone et at de 
bedste pd markedet og bar 
tindes i enhver cegte spille- 
narkomans samling. (Twi¬ 
light). □ 

Gratik: -II 11 

Lyd: Swi ’j 9 

Action • - 9 

11 


Gratik: 

Lyd: 

Action: 

Spcending: 

Pris/kvalitet: 


Pas pa 
sidevind 

■ Hvis du kunne lide Tornado 
Low Level vil du elske Cyclo¬ 
ne. Fra det ajeblik. du starter 
spillet, vil du kunne se, at det 
ligner sin forgeenger meget. 
Denne gang hcerges en lille 
agruppe at en voldsom cy- 
clon, og din opgave er at 
sarnie medicinkasser og red- 
de de nadstedte. der vinker til 
dig tra en bakketop. 
Gratikken er - hvor utroligt 
det end lyder - endnu bedre 
end i beramte TLL. Bl.a. er 
kortet blevet betydeligt stane. 
sd nu tager det over et minut 
at tlyve igennem tra nord til 
syd. 

Cyclone har 14 eer ialt. og pd 
6 at dem er der baser, hvor 
du kan fd fyldt tanken op. Det 
vigtigste mdl er at finde alle 5 
medicinkasser, men tor at td 
extra points skal du manavre- 
re hen over tlygtningene og 
hejse dem op i sikkerhed. 
Hold endelig godt aje med 
vindmdleren. Hvis du kom- 


UIEH 
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Livagtig 

fodbold 

■ Ocean Software er kendt 
for af lave gode programmer, 
og del seneste skud pd stam- 
men er ingen undtagelse 
Navnet er Match Day og spil- 
lef placerer sig i kategorien 
sportsspil, ncermere betegnet 
fodboldspil. 

Match Day ligner meget "In¬ 
ternational Soccer" til Com¬ 
modore 64. som regnes for et 
af de bedste fodboldspil til 


Ocean har indbygget mange 
faciliteter i programmed Du 
kan vcelge. om du spiller 
mod computeren (i sd fald tre 
svcerhedsgrader), mod en 
kammerat eller du kan end- 
da lade computeren spille 
mod sig selv(!). Ligeledes er 
det muligt at skifte spilletid. 
holdenes farver og meget an- 
det. En sjov detalje er. at du 
sammen med flere kamme- 
rater kan spille i en cupturne- 
ring med egne selvopfundne 
holdnavne. 

Ndr alt det onskede er valgt 


at tage opstilling pd deres 
pladser. Banen ses i samme 
perspektiv som i fodboldkam- 
pene i fjernsynet - dvs. med 
tredimensionelle virkninger. 
Pd den modsatte banelceng- 
de ses en rcekke tilskuerplad- 
ser. mens der oppe i hojre 
hjorne findes ur. Holdenes 
navne og kampens stilling 
kan desuden ses nederst pd 
skcermen. Spillerne virker ri- 
melig livagtige. selv om de 
dog er lidt smd. og bolden 
giver ogsd en skygge pd den 
gronne grcesplcene. Alt i alt 


Positionsspillet er helt i orden, 
og det ligner i det store hele 
en rigtig fodboldkamp. Dog 
skal det lige ncevnes, at spil¬ 
lerne efter vores mening er 
noget sieve i bevcegelsen. De 
traver ncermest. 

Vi kan alligevel kun sige. at 
Match Day md virke meget 
attraktivt pd enhver lodbold- 
og computerfan, f .eks. som 
en lille opkvikker i de lange 
perioder uden fodbold i fjern¬ 
synet. . . (microdealer) 


Grafik: 10 


hjemmecomputere. Faktisk 
er Match Day ncesten lige sd 
godt som dette, bortset fra 
grafikken, selvfolgelig. 


via menuerne. kan kampen 
begynde Forst ses i bedste In¬ 
ternational Soccer-stil spiller¬ 
ne komme ind pd banen for 


er grafikken altsd fin. 


Det samme gcelder compute- 
rens spil. ndr dbn udfordres. 


Lyd: 

Action: 

Betjening: 

Pris/kvalitet: 


1SSS. 
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Amstrad 

Adventure 


■ Andromeda fra Interceptor 
er et ganske vellykket Ad- 
venturespil til Amstrad. Spillet 
fylder ca. 40K, hvilket natur- 
ligt begrcenser det ordforrdd, 
maskinen reagerer pd. Derfor 
vil spilleren i starten opleve 
svaret "kender ikke 
gang pd gang. Fortvivl dog 
ikke. Efter lidt ovelse kommer 
Andromedas kvaliteter til fuld 
udfoldelse. 

I starten af spillet befinder 
man sig pd patrulje et sted 
ude i universet. En radionod¬ 
melding indlober pd rumfar- 
tojets modtager. og nu gcel¬ 
der det om at finde de nod- 
stedte. 

Andromeda horer til den ny- 
este type Adventure spil. hvor 
der ogsd indgdr grafik. Nogle 
af de mystiske mm er udeluk- 
kende beskrevet med ord. 


mens landingspladsen er teg- 
net meget flot i farver pd 
skcermen. 

Hele den vcesentlige del al 
handlingen foregdr i et 
uoverskueligt bygningskom- 
pleks. hvor man skal sage ef¬ 
ter de folk, der udsendte nod- 
signalerne. Er man pd et tids- 
punkt nodt til at afbryde spil¬ 
let, kan man "save" sin posi¬ 
tion og status. - og starte fra 
samme punkt. ndr man md- 
ske senere fdr lyst og energi 
igen. 

Andromeda horer mdske ik¬ 
ke til verdens mest spcenden- 
de Adventurespil, men pro¬ 
gramme! er udmcerket gen- 
nemforklaret Bdde voksne 
og born kan lcere nyt. ndr de 
skal kommunikere pd en- 
gelsk med computeren.□ 


Grafik: 

Betjening: 

Spcending: 

Pris/kvalitet: 
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9 
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Spcendende 

rumspil 


Pd omslaget til Black Star stdr, 
at det ikke er »bare et nyt 
rumspil*. og med vanlig 
skepsis var vores forste tanke 
- den er god med jer! Men 
nej - Black Star er anderle- 
des. ideen er fin. programmet 
hurtigt, grafikken overbevi- 
sende, lyden flot og betjenin- 
gen god. Her har program- 
moren ikke givet sit program 
frit, for det var helt fcerdigt. 
Du befinder dig i en galakse, 
som du kan fd en plan over, 
ved at trykke pd en tast. Du 
starter i et let forsvaret omrd- 
der, (samt de militcere), og 
flyver omkring. Mod dig kom¬ 
mer planeter og firkanter. 
Hvis du flyver ind i en planet, 
skitter billedet, og du befinder 
sig nu flyvende henover pla- 
netens overflade. Ved hjcelp 
af et nyt kort, kan du finde 


planetens forsvarscenter. og 
bekrige det. Resultatet kan 
blive at du befrier planeten. 
Firkanterne kommer i grup- 
per pd fire. Afhcengig af hvil- 
ken du flyver igennem, vil du 
flytte dig rundt i galaksen. Er 
du kommet gennem firkan- 
ten. viser en tunnel sig. Den 
skal du igennem uden pro- 
blemer, for at det lykkes dig 
at skifte position i galaksen. 
Og det er svcert for tunellen 
snor sig i alle retninger. 

Til slut et kort ord om instrukti- 
onen: Du kan fd folgende 
hjcelp i begyndelsen af spil¬ 
let: »Hvis det ror sig. sd skyd 
det. Hvis ikke, sd skyd det al¬ 
ligevel. Er det firkantet, sd flyv 
igennem. og er du i tvivl. sd 
Ices instruktionshceftet!« 


Grafik: 

Lyd: 

Betjening: 

Action: 


SPEC- 
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10 
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Fcengslende: 

Pris/kvalitet: 
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Leget0j, der 
er farligt 

■ Jeg mener ikke al kunne 
huske, at mit gamle legetaj 
hjemme pd farstesalen var 
decideret farligt at omgas. 
OK, dampmaskinen kunne 
da springe i luften og bolden 
fra fodboldspillet ryge med et 
brag op i synet pa en. men at 
dukkerne skulle vcere ond- 
sindede og de grillstegte kyl- 
linger aggressive. Det opleve- 
de jeg farst, da Toy Bizarre fra 
Activision blev kart ind pd 
min computer. 

Spillet er mildest talt bizart. Du 
befinder dig nemlig pd en 


fortryllet legetajsfabrik. hvor 
du render ind i et mareridt, 
nbr kyllinger begynder at 
vrimle ud al gule balloner. Sd 
gcelder det om at fd benene 
pd nakken og ellers undga 
Hefty Hilda, der absolut ikke 
lever op til navnet sadt duk- 
kebarn 

Din eneste made at overleve 
i Toy Bizarre er at udrydde 
balloner og kyllinger sd hur- 
tigt som muligt. Du md afven- 
te det helt rigtige tidspunkt, sd 
kyllingerne ikke bliver stegt 
mare pd panden. Ellers bliver 
de helt umuligt at omgds. 
Hefty Hilda er jokeren i spillet 
Hun er drillesyg som bare 
F Hun har det bl.a med 


at tcende for alle kontakter, 
sd maskineriet gdr helt plan- 
last i gang. Altsa, - sarg for at 
fd hende sendt op i legetajs- 
himlen sd kvikt som muligt. 
Gralikken i Toy Bizarre er an- 
derledes end scedvanligt. 
men pd sin vis meget lascine- 
rende. Lyden lalger Activisi- 
ons scedvanligt gennemar- 
bejdede linie. Ja og handlin- 
gen: Den er bare noget helt 
for sig selv. (CBS).D 


Grafik: 

Lyd: 

Action: 

Spcending: 

Pris/kvalitet 



‘■•k. 






LEVEL 2: THE PITS CF FRIHEt,'PL SL1HE 


SCORE: HIGH: EGOUS 

000*4 10 COllIO 6*40 


Moderne 
love story 

■ I Mutant Monty fra Artie 
kommer du ud for den nce- 
sten klassiske opgave at red- 
de den smukke og letsindige 
heltinde. Men som scedvan¬ 
ligt kreever det sin mand at 
opnd den eftertragtede helte- 
titel. Din fornemste opgave er 
nemlig at finde mndt i 40 
rum, der hver for sig rummer 
de forunderligste eventyr. 

I hvert mm ligger fem-seks 
poser guld, som du er nadt til 


at slcebe med, indtil du finder 
din skanjomfru. Ellers har I 
nemlig ikke nogen startkapi- 
tal, hvis I skulle undslippe 
borgens dystre mure 
Vi befinder os jo i det 20. dr- 
hundrede, og sd indbygger 
man selvfalgelig ikke gam- 
meldags riddere eller trold- 
mcend i et moderne spil. Nej, 
vores ven Monty skal klare 
helt anderledes skeer. F.eks. 
skal han passe acceleratoren 
i et atomkraftvaerk og forsage 
at kcempe sig igennem et 
helvedesrum med en slimet 


veeske pd alle sider. 
Grafikken i Mutant Monty 

vcelter ikke en garvet spilan- 
melder af stolen. Lyden er 
heller ikke at rdbe hurra for. 
Faktisk synes vi, at den var di- 
rekte enerverende efter en ti¬ 
mes spil. Men OK, spilideen 
og variationen er udmeerket i 
Mutant Monty. (pcs)D 

Grafik: _ 9 

Lyd: c°~o II 8 

Action: °?T | 9 

Spcending: ™ 10 

Pris/kvalitet: 9 


Skraldemand 
alene i 
verden 

■ Skraldemcend lever livet 
farligt. De skal konstant passe 
pd kantsten. glubske hunde, 
labske biler og bananskrcel- 
ler. Men det er intet imod de 
farer, du kan komme ud for, 
ndr du efter lang og tro tjene- 
ste udneevnes til "overskral- 
demand". 

Det er netop, hvad der sker i 
det nye Spectmm-spil Travel 
with Trashman. Det skal afla- 
se den nok sd velkendte 
Trashman, som lcenge Id hajt 
pd hitlisterne i England og 
Danmark, 

Forhistorien er, at vor helt 
skraldemanden har vist sig sd 
dygtig i sit lokaldistrikt, at han 
nu fdr til opgave at rense he- 
le verden for affald Det giver 
ham naturligvis fine chancer 
til at se speendende og frem- 
mede byer som turist, men 
hans foresatte er mere snedi- 
ge end han. Skraldemanden 
skal nemlig selv betale sine 
rejseudgifter ved at sarnie 
skrald Ellers kommer han 
aldrig videre til nceste turist- 
mdl. 

Vores skraldemand kommer 
vidt omkring i Travel with 
Trashman. Han besager 
Moskva, Paris, Jerusalem, 
Hong Kong, Madrid og en 
rcekke eksotiske smdbyer, 
hvor affaldet bestdr al under¬ 
lie ting og sager. 

Travel with Trashman rum¬ 
mer som sin forgeenger man¬ 
ge llotte billedvirkninger i 3-D, 
Undervejs kommer der 
ustandseligt jokes og kvikke 
bemcerkninger, og lydsiden 
md i det hele taget betragtes 
som forbilledlig. En af spillets 
flotteste grafikker er et ver- 
denskort, hvor man selv kan 
se lille Danmark, 

Travel with Trashman er helt 
i klasse med de bedste arka- 
despil. Det kreever sin mand 
at klare opgaverne. Ellers 
bliver du stanget, deporteret, 
kart ned, skambidt eller fdr 
alle tiders skideballe ned 
over hovedet. (Twilight). □ 

Grafik: 11 

Lyd: II 10 

Action: tom 3 10 

Spcending: ■■*3 ) 10 

Pris/kvalitet: 10 








Gamblermania 


■ Dine hcender rystei. Hjertet 
banker. Koldsveden bryder 
(rem. Hcenderne soger fe- 
brilsk i lommerne efter den 
nceste smog. Den md vcere 
der et eller andel sted. Du f 0 - 
ler, at alle andre kigger pd 
dig. Stirrende 0 jne i spillebu- 
lens r 0 gtyldte tusm 0 rke. Du er 
grebet ai manien. 

Med et spjcet vdgner du op. 
Det er bcelgmorkt omkring 
dig. Vcekkeuret tikker ufortro- 
dent, og du er badet i sved. 
Du kan ikke sove mere. Ma¬ 
nien har grebet dig, og du 
styrter tvcers over det kolde 
gulv. Hen til din Commodore 
64. 

Start maskinen og et 0 jeblik 
efter lyset jackpot-spillet op 
pd skcermen. Heldigvis har 
Bally ikke level forgceves. Det 
er den eneste mdde, du kan 
kurere din "gambler-mani" 
pd. 

Programmet har med sine 10 
sprites og meget tlotte gratik 
gjort dig athcengig. Prov selv, 
hvis du tor. . . □ 

Slellen Brauner 




■ 


COMMO 



DOPE 



64 





9 00SUB300 

10 P0KE36.6IIP0KE33,128iPOKE32,6 IIP0KE3I.>28 
20 FORX-0T062I RE808 IPOKEX•19744.PIPCXT 

30 F0RX-0T062iREP0PtP0KEX* 19808 ,PI«XT 
40 FORX■0T062 t REPOP« POKEX♦19872,81 f«XT 
90 F0RX-0T0621REPOP«POKEX*13936,PiNEXT 
60 FORX-0T062IREPOP «POKEX•16000,8• hCXT 
70 FORX-OT062«REPOPtPOKEX*16064 .PiKXT 
80 F0RX-0T062iREP0P«P0KEX*l6l28,Pir«XT 
90 FORX-0T0621PEPOP «POKEX*16192,PI*«XT 
IOO F0RX-0T062IREP0PIP0KEX* 16236.Pt^XT 
I 10 FORX*07062•REPOP IPOKEX•16320, P«tCXT 
120 V33248iP0KEV*37.0«P0KEV*38. I 
130 FORX-ITOIO«S<X>-X*243«r«XT 
140 FORX ■ 1 TO 101REPDP« F< X > -Pt hCXT 
130 O I1 < 23 ) IO I ^H2< 23 ) • 0 I FM3< 23 ) 

160 FORX-IT023«REPDHlcX> ,H2< X> ,M3< XJihCXT 

170 MIX-IIH2X-IIM3X-I!P0KEV*37,0iP0KEV*38.1tO-1tLY-O 

180 GOTO 1000 

199 REM K1RSE8PER t«« 

200 OPTPO,16,0.0,16,0,0,16,0.0.16.0.0,84.0,0,84,0.0,69.0.0.63,0,1.63,64.1 
202 OPTPO.64,I.0,80,3,0,16.4.O,16,8.0,32,42,0,168,170.130.170,170.130.170,170 
204 OPTP130,170,170.130,170,42,0,168.8,0,32 

209 REM ••• PPPELSIN 

210 OPTPO,0,0,0,0,0,0,0,0,0.84,0,2,134.0,10,170,128,10,170.160.10.170.160,42.170 
212 OPTP168.42.170,168,42,170.168,42,170,168,42,170,168.42.170.168.10,170.160,lO 
214 OPTP170,160,2,170,128,0,170,0,0.0,0,0.0,0,0,0,0 

219 REM BLOIfC ••• 

220 OPTPO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.0,0,0,0.0 

222 0PTP2,170.128,10,170,160,42,170,168,170,170,170,170.170.170.170,170.170,170 

223 OPTP170,168 

224 0PTP42,170,160,10,170,128,0,0,0,0,0,0,0,0.0.0,0,0,0,0,0 

229 REM«■• KLOKKE ••• 

230 OPTPO,0,0,0.0,0,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0 


232 OPTPO,40.0,0,40.0.0.170.0.0,170,0.0.170.0,0,170,0.2.170,128 

234 OPTPIO.170,160.10.170.160,42.170,168.42.170.168.0.0,0.0,0.0.0,0,0 

239 REM*■■ CBM ••• 

240 DPTP40.0.0.130.0.0,128.0,0.128,0.0.128,0.O,130.0,0,40,0.0 
242 DPTP2.160.0.2.8.0,2.8,0.2.160.0.2,8.0.2.8.0,2.160.0 

244 OPTPO.2.2.0.2.138.0.2.34,0,2.2,0,2.2.0,2,2,0.2,2 

249 REM *•• C- ••• 

230 OPTPO,0,0,0.0.0.0,0.0,0.0.0,3,80.0,21.80,0,83,80,0,84,3,80,80,3,64,80 

232 OPTP3.0.80.0.0.80.3,0.80.3,64,84.3,80 

234 OPTP83.80.0,21.80,0.3.80,0,0.0,0,0.0,0.0,0.0,0,0.0 

239 REM ••• KLOVER ••• 

260 OPTPO.40.0,0.170.0.2.170,128.2,170.128.2.170,128.8,170,32,42,40,168 

262 OPTP170.170,170.170.170.170,170.170,170.170,170.170,42,40,168,0,40,0,0.40,0 
264 OPTPO,40,0,0.170.0,10.170.160,42,170,168.0,0.0,0,0,0,0.0,0 

269 REM ••* COT*>UT*R ••• 

270 OPTPO.0,0,42,170,168,32,0.184.32,0,168,32.192- 184,33.12,168,33,0,184 
272 OPTP33,12.168,32,192.184.32.0,168.42,170,168,0,20,0,0,20.0,0,20,0 

274 OPTPO,83,0,10.170.170,11.187,186.42,170,170.46,238,232,170.170,160,170,170,1 


279 REM •*• JOYSTICK *•• 

280 0PTP3.64.0.1.160,0,0,100,0.0,84,0.1,84.0.1,84.0.0.84,0 
282 OPTPO.84,0.1,84.0,1.84.0,0,84,0.0.84,0.1,84.0.1.84,0 

284 OPTPO.80.0.0.80.0.0.80,0,21.83.84,23,83.84,21,83,84.3.0.80 

289 REM ••• BPR ••• 

290 OPTPO,0.0,0,0,0.0,0,0.0.0,0.21,83,83,21.83.83,41,106.106 

292 0PTP38.102.102,38.102,102.38,102,102,41.102,106.41,106,103.38,102,102,38,102 

293 OPTP102 

294 OPTP38.102.102,41,102.102.21.83,83,21,83,83,0.0.0,0,0,0,0,0,0 

300 POKE33281.12:P0KE33280.0iPR INT’^i OOOO OOO O O O O •» 

310 PRINT" OOOOO O OO '» 

320 PRINT" OOOOO O OO "J 

330 PRINT" OOOOO O OO "» 

340 PRINT* OOOO OOOOO O O O "> 

390 PRINT* OOOOO O O *> 


10 Soft Special 
























Soft Special 11 








3D-labyri 


10 SYMBOL AFTER 244 

20 SYMBOL 244,15,31,31,63,63,127,127,127 I 

30 SYMBOL 245,255,255,255,255,255,255,255,255 

40 SYMBOL 246.255,255.255,255,255,255.255,255 _ ll MM ■ ■ 

50 SYMBOL 247.240.248.248,252.252.254.254.254 
60 SYMBOL 248,63,63,63,255,191,191,191,63 
70 SYMBOL 249,255.255,252,253,253,253,252.255 
80 SYMBOL 250,255,255,63,191,191,191,63,255 
90 SYMBOL 251,252,252,252,255,253,253,253,252 

100 SYMBOL 252,&X111000,fcXl10111 ,*<X110111,&X111000,*X111111,&X111111,&X110000,8cX 

linn 

110 SYMBOL 253,&X1011101,«.X11011011,&X11010111,&X11001111,&X1010111,8.X1011011,&X 
11011101,^X11111111 

120 SYMBOL 254,&X10001100,S.X10001111,feXl 110111,&X1110111,«<X111,&X1110111,&X11101 
11,fcXl1111111 

130 SYMBOL 255,&X11100,&X1111100-8.X1111100.&X1111100-&X1111100,&X1111100, *<X11111 
00 , &X 11111100 

140 FOR x=l TO 3 FOR y=l TO 6 ! READ char=kiste*<x)=kisteCCx)+CHR*<char> : NEXT y,x 
150 DATA 15,8,244,245,246,247 
160 DATA 15,9,243,249,250,251 
170 DATA 15,9,252,253,254,255 

180 INK 0,0‘INK 1,24=INK 2,15=INK 6,9=INK 4,2=INK 5.7=INK 7.25=INK 8,3=INK 9,27 
190 h=12 = v=12 

200 DEF FNtorward*<x,y )=MID*<a*-Posy-x*yretnin9+y*xretnin9),Posx+x*xretnin9+y*yr 
etmn9, 1> 

210 DEF FNran< a , b >= I NT< RND#< b~a > )+a 

220 DIM a*< 25 >, va VJ.. 12,12), ua%< 12,12), box< 20 ) 

230 RANDOMIZE TIME 
240 MODE 1 

250 PEN 1= PRINT "Labyrinten bli'./er mi oPrettet." 

260 GOTO . 1110 

270 MID*<«$< y),x)»"s"=Posx-10 = - 

230 P osy =24 = xretn i n9=0 = y retn i ri9= 1 = ant* 1 = 1 - 

290 tid«TIME - - 

300 'repeat Play _ 

310 GOSUB 530 _ 

320 IF FNforw*rd$<0,0)="s" THEN FOR i=l TO 3=LOCATE 9,22+i=PRINT kiste*<i>=NEXT= 

CALL &BB18= GOTO 1040 - 

330 a*=INKEY* =IF a*="" THEN GOTO 330 - 

340 IF a.*OCHR*<240> THEN 420 

350 FOP n-1 TO antal -773 

360 anta 1 = 1 //, 

370 IF FNforward*< 1,0)="k" THEN SOUND 1,1200,100 = bu.mP=bumP+l = GOTO 300 ///, 

380 Posx=P osx+xretn i n9 //// 

390 Posy=Posy-yretnin9 / / / / 

400 NEXT n /// / / 

410 GOTO 300 / / / 

420 IF a.S=CHR*< &F2 > THEN n=xretnin9=xretnin9=<NOT xretnin9)*yretnin9 / / / / 
= y retn in9-< NOT y retn in9)*<-n)> GOTO 350 x / ■■ / ■ 

430 IF a*=CHRS<&F3) THEN n=xretnin9 = xretnin9=<NOT xretnin9)*<-yretnin9> / / . 

= yretnin9=(NOT yretnin9>*n = GOTO 350 / / / 

440 IF a#=CHR*<8eF 1) THEN xretnin9=-xretnin9 = yretnin9=-yretnin9 = GOTO 350 
450 IF a*< >"k" AND **<>"K" THEN 510 ELSE MODE 1=FOR x=l TO 25 = LOCATE l,x = PRINT a 
SCx); NEXT=kort=kort+l=LOCATE Posx.Posy 

460 PEN 3= IF xretnin9=-l THEN PRINT CHP*( 242 > / / / / 77 7 / 

470 IF xretnin9=l THEN PRINT CHR*- 243) / ////// / 

480 IF yretnin9=-l THEN PRINT CHR*-'241) //// /// / 

490 IF yretnin9=l THEN PRINT CHR*- 240> // 7 / 

500 WHILE INKEY*®"" = WEND = GOTO 300 / / / / 

510 IF INSTRC"123456789",a*> THEN ant*l«VAL<a*>=GOTO 330 / / / / 

520 GOTO 300 /- t — / - -/■ --/- 

530 ' te9n 9an9e / / / / / / 

540 MODE A / / //// 

550 ORIGIN 320.200 / '//I 

560 t= 1 = s 1 ut*0 = forte9n= 1 = tbefore®9 mur=FNforward*' 0.1 )= "k 7 / ' j 

570 IF FNforwardS-1,0)="k" OR t>=10 THEN slut=-l 7 7 / 

530 IF FNforward* 1 ' t, 1 )="k" AND NOT mur THEN GOSUB 730 / / / 

590 IF (slut OR FNforw*rd*<t,1X>“k") AND mur THEN GOSUB 900/ / / 

600 IF slut OR t>=10 THEN GOTO 640 / / / 

610 x=320-3QR<t*10000) = y =xx320*200 - /- 

620 MOVE x,-y = DRAW -x,-y,4 

625 IF FNforwa.rd*<t,0)="s" THEN FOR xx=-10+t TO 10-t=MOVE -10+t,-y+xx+8=DRAW 10- 



t,-y +xx+8,9 = NEXT 

630 t=t+l= GOTO 570 _ 

640 'and the other side 

650 mx=t = forte9n=-l = tbefore®0 = mur*FNforward*<! 0,-1 )="k" 

FC, T F t F| 1 jfIr , M»rd*- t,-n="k" AND NOT mur THEN GOSUB 730 
%M IF < t=mx OP FNforward*<t,-1 X>"k") AND mur THEN GOoUB 900 

690 NEXT t / / 7 

700 mn=320-S0R<<t.-l >*10000) / / / 

710 y=miv 320*200 / / / 

720 FOR x=-mn TO mn STEP 4 / / / 



730 MOVE x,y 
740 DRAW x,-y,2 
750 NEXT x 

760 GOSUB 990 r _ 

770 RETURN 

780 x=<320-SQR<t*10000>>*forte9r.:y=xx320*200 amstrad 

790 mur=-l 

800 xbefore=<320-SQRCtbefore*10000 >>*forte9n I — 

810 MOVE xbefore,y 
820 DRAW x, y, 2 
830 DRAW x,-y,2 
840 DRAW xbefore,-y,2 
850 MOVE x+4*forte9n,0 

860 DRAW (320-SQR<(t-1-1*< t=0> )*10000 >>*forteA n.0,6 

870 z=10-fc DRAWR -z*forte9n,z-DRAWR z*forte9n,-z : DRAWR -z*forte9n,-z 

830 tbefore*t 

890 RETURN . dette SDil 

900 x=< 320-SQRC t* 10000 ) >*forte9n = y=xx320*200 V"“ p 

910 nur-e skat ' der er 

920 xbefore*< 320-SQR< tbefore* 10000 > >*forte9n byrint. 

930 FOR x2=xbefore TO x STEP -4*forte9n Labyrinten- 

940 MOVE x2,x2x320*200 tegnetlordi 

950 DRAW x2,-x2x320*200,2 inde i den 

960 NEXT x2 n „. __ ]d _ 

970 tbefore-t Del gcelde 

980 RETURN skatten pa i 

990 LOCATE 10,2 PEN 1 IF xretnin9»l THEN PPINT"0" antalsekur 

1000 IF xretnin9=-l THEN PRINT"V" antal kiapd 

1010 IF yretnin9=l THEN PRINT"N" fd buler i he 

1020 IF yretnin9»-l THEN PRINT"S" n,, fivtterire 

1030 RETURN jju uyner ve 

1040 MODE 1 steme og 

1050 PRINT"Du fandt skatten !!! “ med K. 

1060 PR I NT "Du bru.9te"tidx300"seku«der. " Hvisdu, l 0 r 

1070 PRINT • PRINT: PRINT"o9"kort"k i9 Paa kortet. " piletast, try] 

1080 PRINT “PRINT : PRINT"Du 9lk "bumP "9an9e ind i muren ! " nefrn 1 9 v 
1090 WHILE INKEY*=" " • WEND „ 

1100 rijn sd manges 


I dette spil skal du finde en 
skat, der er skjult i en stor la- 
byrint. 

Labyrinten vil hele tiden blive 
tegnet tor dig, som om du stod 
inde i den. Altsd i rigtig 3D. 
Det gcelder sd om at linde 
skatten pd det kortest mulige 
antal sekunder, det (cerreste 
antal kia pd kortet og med sd 
Id buler i hovedet som muligt! 
Du llytter ved hjeelp at pileta- 
sterne og kigger pd kortet 
med K. 

Hvis du. tor du trykker pd en 
piletast, trykker pd et at talle- 
ne fra 1-9, vil du beveege dig 
sd mange skridt i den pdgcel- 


1110 ERASE a*.va7.,wa*‘DIM a*<v*2+l ),va«h,v>,wa«h+l,v+l) dende reining. Held og lyk- 

1120 FOR x=0 TO h+l=wa«x,0>*l=waX<x,v+l>=l=NEXT ke!D 

1130 FOR x=0 TO v+1 : 0, x )= 1 ; waX( h+1, x )* 1 NEXT Lars Christensen 

1140 q =0 z=0 = a=INT<RND*h)+1 wa5{<a,l >=1 c=2 r=a^s=l =M«3 ! slut«0 

1150 IF M=4 THEN 1250 

1160 IF NQT< M=1 OR <M*2 AND wattr,s>=0)> THEN 1190 

1170 IF r=h THEN s=l-s*<s<>v) = r=l ELSE r=r+l 

1130 IF wattr,s)«0 THEN 1170 

1190 IF w*V.(r-l,s)<>0 THEN rn=4 GOTO 1150 

1200 IF wattr,s-1)=0 THEN 1230 

1210 IF wattr+l,s>=0 THEN GOSUB 1470;ON INK RND*wx )+l GOTO 1340,1400,1410 
1220 GOSUB 1440 ON ok + 1 GOTO 1410,1340 

1230 IF wattr+l,s>=0 THEN ON INKRND*3>+1 GOTO 1340,1380,1400 
1240 GOSUB 1470 ON INKRND*mx>+l GOTO 1340,1380,1410 
1250 IF wattr,s-1>=0 THEN 1280 

1260 GOSUB 1440 ■■ IF wattr+l,s>=0 THEN ON ok + 1 GOTO 1410,1400 
1270 ON ok+1 GOTO 1410,1430 

1280 IF wattr+l,s>»0 THEN GOSUB 1470 ON INKRND*MX>+l GOTO 1380,1400,1410 
1290 GOSUB 1440i ON ok+1 GOTO 1410,1380 
1300 IF slut THEN 1310 ELSE 1150 

1310 ?.*' 1 >=5TRING*< h*2+l. "k " ) FOR j = l TO v = a*< -i*2)*"k"+STRING*<h*2, " " )-a*< .1*2+1 
)=a*< 1 ) : FOR i = l TO h : IF vatt i, -1 )<2 THEN WID*( a*< J*Z > 

,i*2+1,1>="k" 

1320 IF va5£<i,J><>0 AND vatt i, j X >2 THEN MID*<a*< .1*2+1 >, 1*2,1 >=" " 

1330 NEXT i,J ; x=a*2• y =2 : Posx=INSTR< a*<25>," ") = MID*<a*(25),Posx,1>="k"’GOTO 270 
1340 watt r-1, s >= 1 : c=c+1 • vatt i— 1 • s >*2 : r=r— 1 
1350 q=0 ; ru=3 

1360 IF c=h*v+l THEN slu.t=l 
1370 GOTO 1300 

1380 wattr,s-l>=1 : c=c+1=vattr,s-1>=1=s=s-1=GOTO 1350 
1390 c=c+1=vaV r,s-1>=1 s=s-1=GOTO 1350 

1400 wattr+1,s>=1 c=c+l : vattr,s)=2-<vattr, ?><>0>• r=r+ 1 r«i=4•• GOTO 1360 

1410 IF q = l THEN z= 1 : IF vattr, s X >0 THEN vattr, s )*3 : 4*0 : n- 1 ELSE vatt r, s >= 1 : 4 =0 : 

r= 1: s= 1 • m=2 ELSE watt r, s+1 )= 1 : c=c+1 = vatt r, s '>= 1 -2*< va 

5£< r,sX >0 > = s=s+1 = m=3 GOTO 13 60 

1420 GOTO 1300 

1430 «=1=GOTO 1300 

1440 o=0 IF =.=v THEN IF Z =1 THEN o=! FLSE 4 = 1 ELSE IF waX< r, s+ I X >0 THEN o=l 
1450 IF o=l THEN ok = l ELSE ok=INKRND*2> 

1460 RETURN 

147P -x=2 IF zOl AND s*v THEN 4=1 ny=3 
1480 IF wa.5J<r,s+l)=0 THEN mx=3 
1490 RETURN 

1500 PRINT USING"###"+CHP*<: 13>;h*v-c; = IF m=4 THEN 1250 SoftSpecial 13 







Commodore 

dette synthesizerpro- 

1 din Commodore 64 MM ^0^^ ^0^^ I 

lave dine egne melo- H^0 0 

er lydefiekter, og du ■ ^ 0 ^ fM 

.v indstille de vigtige | ^^^0 ^^^0 | I • 

5lre uden problemer. 0 


■ Med detle synthesizerpro- 
gram til din Commodore 64 
kan du lave dine egne melo- 
dier eller lydefiekter. og du 
kan selv indstille de vigtige 
parametre uden problemer. 
Ved at trykke RETURN <§n 
gang vil du kunne se. hvilke 
taster, du skal bruge for at 
indstille de forskellige ting. 
Ndr der stdr F3 og F4 betyder 
det. at med F3 tcelles op og 
med F4 tcelles ned. 

Med tryk pd RETURN en gang 
til vil du kunne se. at du kan 
spille i 2 oktaver. og hvordan 
de 2 oktaver ligger pd tastatu- 
ret. Derfra kan du trykke en 
hvilken som heist tast for at 
komme tilbage til indstilnin- 
gen. God tomojelse.D 

Claus Ljunggien 


S VI-OiAl-OiPI*0181-0iH*0iL*0iA*0 
10 VO*342961AT-342771PL*342761SU-34278 
20 HF*34273ILF-34272 
30 POKE 33280,OiPOKE 33281.0 

40 PRINT'^jaMMMMMMMMWkUMOSil 
30 print-*—————— nnn 

60 PRINT-11—SPECIALLY FOR 0YOURI 

70 print-—— nnnnii 

80 PRINT-—/OLOUK* 0)001 
90 PRINT’O—TULSFOR 0)001 SUSTA 
92 PRINT-a—BTPESS RETl 

94 PRINT* —M—iar*TV' 

96 PR I NT * 0 imill 1 

98 PRINT-M—■—f C > COPYRIGHT 1983-86* 

99 print*— —Mil mmw o mw 
too PRiNT*aa——arvrvvnrn 

101 REM ..••■(•■•((•■■■■■■■•(■■at 

110 REM •■■■■■• WIN PROGRAM ••(■•■■ 

120 REM ■■•.■■■•■•■■■■■■■■■■••■■■■■ 

130 GET ASUF A*-** THEN 130 
133 IF A8-*R* THEW-8IL-I47IGOT0970 
140 IF AS**3* THEW-9IL-2H00T0970 
143 IF AS- *T* THEW*9lL*l39l00T0970 
ISO IF AS* *6* THEW*IOlL*60iGOT0970 
133 IF AS* *Y* THEWI0IL-203IGOTO970 
160 IF AS* *U* THEW- I IIL* 114 i G0T0970 
163 IF AS* *8* THEW-I2IL-32I00TO970 
170 IF AS--I- THEW- 12>L*2 161G0T0970 
180 IF AS- *9* THEW* 13IL* 136100T0970 
190 IF AS* *0 * THEW- 14 IL • 1071G0T0970 
200 IF AS- *0* TMEW-I3IL-70IGOT0970 
210 IF AS* *P * THEW* 16 I L *47 IG0T0970 




BPECIALLY FOR 0TOUR0 *64* 

rnmiinnmiMii 

I—roi.ouw 0000 ATT AC/DECAY 0OO0' 

SFOR 0)008 SUSTAIN/REL 0)00* 

■—■—8FRESS RETURN FOR IN6TRUCT IONSi 


143 IF AS* *T" 
ISO IF AS* *6 * 
133 IF AS--V 


190 IF AS* *0* 
200 IF AS* *0* 
210 IF AS**P* 
220 REM ■•••• 
230 IF AS**X* 
240 IF AS**0* 
230 IF AS* *C* 


230 IF AS**X* THEW-I7IL-37IG0TO970 
240 IF AS* *0* THEW«IBiL*42lG0T0970 
230 IF AS**C* TMEW-I9IL-63IG0T0970 
260 IF AS* *F * TMEW-20IL-100IG0TO970 
270 IF AS* *V * THEW-21IL-134IG0T0970 
280 IF AS* *B * THEW-22lL*227i00T0970 
290 IF AS* *H* THEW-24IL-63IG0T0970 
300 IF AS--N* THEW-23IL-I77IGOT0970 
310 IF AS* *J * THEW-27IL-36IGOT0970 
320 IF AS* *M* THEW*281L*2141GOTD970 
330 IF AS- *K * THEW30IL-I4H00T0970 
340 IF AS**,* THE W -321L*941G0T0970 
890 IF AS* *8* THEN 1000 
900 IF AS-*0* THEN 1070 
910 IF AS-*0* THEN IIOO 
920 IF AS-*0* THEN 1170 
930 IF AS* *0* THEN 1270 
940 IF AS* * ■* THEN 1300 
930 IF ASC< AS)*13 THEN 1370 
960 GOTO 130 

970 POKEPL,OiPOKE HF.HiPOKE LF.L 
980 POKEPL,PI IFOR 1*0 TO 30IPCXT I 
990 GOTO 130 

1000 REM ..•••••••••••.■••• 

1010 V1-VI*II IF VI>IS THEN VI-0 
1020 POKE VO,VI 

1030 IFVI-OTHEWRINT-aaa—a— 
1040 IFVI<-9APCVI >OTHEWRINT*aaaaa— 
io3o ifvi >-ioTHEM>RiNT-aaaaaaaaaaa— 
1060 GOTO 130 

1070 REM ••••■■••••••■•••■•■■■•■■•■••: 

1080 AI -A 1 ♦ 11 IFAI >233THEN* 1 *0 
1090 POKEAT,AIiQOTOI120 
1100 AI-A 1 - 11!FAI< OTHE WI*233 
1110 POTEAT.AI 
1120 IFA1-0THEWRINT 
1130 IFA1<-9APCAI>0THEWRINT 
1140 IFA1 >■ 10AfCAl< 100 THE WRI NT 
1130 IFA1 >■ 100THEWR I NT* 

I 160 GOTO 130 

1170 REM •••••■•■■•■■■■■■■■■■■■••■■■•t 

1180 A-AMIGOTO 1200 

1200 IF A-I THEN PI-17 

1203 IF A-2 THEN PI-33 

1210 IF A-3 THEN PI-63 

1213 IF A-4 THEN PI-129IG0T0 1243 

1220 IF A-3 THEN PI*OiGOTO 1260 


COMMO 

DORE 

64 





POKE PL.PI 
PRINT'S—| 
00 TO 130 
pRiNT'aaaai 
00 TO 130 
PRiNT'aaaai 
A-0 

I GOTO 130 


ra r?a 0 

50 mS 060 

| TO C0NT1N1UE* 


1 81-81*11 IF 81)233 THEN SI-0 
1 POKE SU.8I*GOTO 1320 
1 8I-8I-IUF 8I<0 THEN 81-233 
i POKE SU.SI 

i ifsi-othewrint- aaaaaaaaaaaaaaaaa—aaaaaaaaa 

i ifsi< *9>vcsi>oTHEWRiNT'aaa—aaaaaaaaaaaa— 
i ifsi >-1 oAfcs 1 < ioothewr iNT-aaaaaaaaaaaaaaaaaa 
i iFSD-iooTHEWRiNT'aaaaaaaaaaaaaaaaaaaaaaaaaa 

i 00 TO 130 
l PRINT* 
i F0RI-IT022 
I PR I NT * a 0 
I PC XT I 
I PR I NT*a 

i pRiNT-aaaaaaaaaaaaaa—a— i'ostilninoi • 

I PRINT 
I PRINT 
l PRINT 
I PRINT 

I X *33296iPOKE X.6 
l GCTARiIFAS< >**THENI730 
I X*X*2HF X>33333 THEN 1300 
I POKE X,6iP0KEX-I,IiGOTO 1473 
I X*33373iPOKE X.6 
I GETASiIFAS<>**THENI730 
I X-X*OOHF X>36293 THEN 1330 

I POKE X,61POKEX-40,1 IFOR I•I TOIOiPCXT lOOTO 1303 
I X*362331POKE X.6IP0KEX*I,I 
I GETASiIFAS<>**THENI730 
• X-X-2UF X< 36216 THEN 1360 
I POKE X,6iP0KEX*I,IiGOTO 1333 
I X*361761POKE X,6iP0KEX*40,1 
1 GETASi1FAS<> ,B THEN1730 
I X-X-80UF X< 33296 THEN 1390 

I POKE X,6lP0KEX*40,1 IFOR I -1 TOIOIPCXTiGOTO 1363 

) REM ■••.••■■■■■■■.■■■■•■■■ 

I X-33296iPOKE X.l 
1 GETASiIFAS<>*-THENI730 
» X*X*2iIF X>33333 THEN 1630 

> POKE X.lIPOKEX-I,6IGOTO 1603 
I X*33373lPOKE X.6 

1 GETASi IFAS< >"THEN1730 
I X-X.80HF X>36293 THEN 1660 

) POKE X.lIP0KEX-40,61FOR I * ITO101PCXTIGOTO 1633 
» X*36233iPOKE X.liPOKEX*I,6 
S GETASiIFAS<>**THEN1730 
I X-X-21 IFX<36216THEN1690 

> POKE X.lIPOKEX.I.6IG0T0 1663 
I X-36I76IP0KE X,1iPOKEX*I,6 

1 GETASiIFAS<>**THENI730 
1 X-X-80UF X<33296 THEN 1470 

) POKE X.liPOKEX*40,6 IFOR 1*1 TO10IPCXTI GOTO 1693 
) G*01 GOTO 130 

) REM ■■•■•■••■■■•■■■■■■■■•••■•■■■•■ 

) P0KE3328I.I4IPRINT CHRST 147> 


i n 08 0a 0i 0i a- 

0 T YU 1 0 P* 

NSTREGET OKTAV 




■ i ■ ■ • 
01 01 01 01 01 - 

C VB N M .* 


i GET BS:IFBS***THEN1860 
I IF ASC< AS> *13 THEN 30 
i GOTO 1860 
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: REX AF PER CHRISTENSEN 
3 GO TO 9960 
- GO SUB 9000 

3 PA°ER Os BORDER Os CLS s FOR f-0 TO 20 STEP 2 
10 LET rnd-INT <RND*7)M 
20 IF rnd-7 THEN LET rnd-6 
25 BORDER 0 

35 PRINT 'iNK 9t" JEDY -AF PER CHRISTENSEN 


- TRYK EX TOST 


40 BEEP .05.f"d* r nd 
50 NEXT ♦ 

52' PAUSE 0 

63 BORDER Os POPER Os CLS 

72 DO SUB 9000 

75 LET farva-lt LET *cora-0 

77 FOR f-0 TO IOOS PLOT RND*255.RND*150s NEXT ♦ 

80 LET b*-"C“ 

35 LET a*-"I" 

90 LET k-IOs LET y-16t LET c-Ot LET i.va*-9t LET *1-2S LET rl-Ot 
105 LET a-INT (RND-32) 

110 PRINT OVER It INK 4tOT a.ytaft 

112 PRINT POPER 5t INK HOT 0. 261 "LI Vs - 11 , va* 

115 PRINT POPER St INK 1:0T O.Ol"SCORES -;*cora 

117 PRINT INK farvatAT c.alb* 

120 PRINT OT a•y t" • 

125 PRINT OT al.ylt" - 

'.26 PRINT OT al»l, y I |“ - 

128 IF IN 65278-253 THEN LET y-y-1 

130 IF IN 65278-251 THEN LET y-y*l 

135 IF IN 49150-253 OND «or»>-12000 THEN GO SUB 3000 

140 IF IN 49150-251 THEN LET a-a-1 

145 IF al>-18 THEN GO TO 9950 

150 IF IN 32766-251 THEN LET a-a*l 

154 IF scor*) -12000 THEN LET rl-rlMi IF yl>-30 THEN LET yl-Ot LET al-»l*2 

155 IF IN 49150-253 THEN GO SUB 1200 

156 PRINT OT c.at" • 

158 LET c—c♦1s IF c>-19 THEN GO TO 1500 

160 IF *cora»1000 THEN LET farva-2: GO SUB 1600 

162 IF *cora-4000 THEN LET farva-3l GO SUB 1610 

165 IF »c©ra-8100 THEN LET farva-4t DO SUB 2000 

170 IF scor*)-12000 THEN LET farva-5: GO SUB 2100 

200 IF y<-0 THEN LET y-0 

210 IF y>-31 THEN LET y-31t 

220 IF a <-0 THEN LET a-Os 

230 IF a)■18 THEN LET a-18t 

300 PRINT INK 2lAT 4,5t"N“ 

310 PRINT INK ItAT 5.25:“JK"!AT 6.25t"LH" 

500 s GO TO 110 
1009 

1200 IF a=c AND y-a THEN PRINT INK 2tAT a.yfAB": BEEP .02.20s BEEP .05.30: BE 
EP .03.20s PAUSE 50s PRINT AT x.yt" - 

1202 IF a-c AND y-a AND b*-"C“ THEN LET scora-scora+100: LET c-Os GO TO 105 

1204 IF a-c AND y-a AND b*-"D“ THEN LET *cora-*cora*200: LET c-Os GO TO 105 

1206 IF a-c AND y-a AND b*-"F" THEN LET *cora-*cora*300: LET c-Os GO TO 105 

1210 IF a <> c OR yOa THEN RETURN 

1500 PRINT INK farvatAT c.aS''AB": FOR n-0 TO 10: BEEP .05. RND-20: NEXT ni LET t 
. vas-i . va*-1 s PRINT AT cat" * s LET c-Os IF i.va»>0 THEN GO TO 105 
1510 IF i.vas-0 THEN FOR n-0 TO 10s BEEP .05.-CRND-20)s NEXT n: 

1520 CLS s PRINT "Du «unn* ikka afvaar*a an«r«b»t. wn du f.k da ■Sicoref PO.nt 

1531 PRINT PAPER 6t INK '2t " TAK FOR SPILLET PAUSE 200 

1532 BORDER 7: PAUSE 15s PAPER 0: CLS s PAUSE 15s PAPER 7s CLS : PRINT INK Ot* 
:-3 1982 S.ncia.r Rataarch Ltd" 

1533 PAUSE Os GO TO 1534s 

1534 CLS : BEEP .5.15: BEEP .3.15: BEEP .1.15: print PAPER 2t INK it FLASH i:AT 
10. lit"S N Y D T": INPUT "Vii du orOva .*an"ts» 

1536 IF »*<) - naj" AND **<>"n“ THEN GO TO 63 
1555 STOP 

1600 BEEP .5.17s LET b*-"D": LET »cora-*cora*1000: RETURN 



161U BEEP .5.40: LET b*-"F": LET *c©ra-*cora*2000s RETURN 

2000 BEEP .6.-20: LET al-2s LET yl-Os PRINT AT al.ylt"G"s LET scora -»cora*3000 
2100 PRINT AT a 1■y1 I"0“ 

2105 PRINT AT al»l.ylt "0" 

2108 RETURN 

3000 IF a-al AND y-yl THEN PRINT INK 2tAT al.yll"0HB" 

3005 IF a-al AND y-yl THEN LET *c©ra-*cora*5000i FOR f-0 TO 69s BEEP .0025.fi N 
-EXT f: DO SUB 4900 
3010 IF .0.1 OR y <) y 1 THEN RETURN 
4900 FOR f-0 TO 100s NEXT fi CLS s FOR f-0 TO 7 

5000 BEEP .05. ff: PRINT INK fSAT 0.Ot'JEG TROR IKKE PAA DET-'"HVORDAN KAN ET I 
NDIVID SOH DIG HED ET SAA AANDSFORLADT ANSIOT"•"REDDE MENSKELIGHEDEN FR 

A DE FRYGTLIGE * JOBAJANER' " 

5010 NEXT f 

5015 FOR f-0 TO 130 STEP 30 

5020 PLOT 110. Os DRAW f. 100.-PI: PRINT AT 9. I6»< f/8)-2l "H" s BEEP .05.10 
5025 NEXT f 
5027 PAUSE 100 

5030 CLS s PRINT ""PROV OH DU KAN KLARE DET I GEN": PAUSE 100s GO TO 55 
6000 STOP 

9000 RESTORE 9070s FOR —1 TO 15 

9030 READ 

3040 FOR n-0 TO 7 

9050 READ as POKE USR a*-n.a _ 

3060 NEXT ns NEXT m [a ~ 

9070 DATA "a".160.192.32.63.248.251.63. 31 

9080 DATA "b". 34. 116. 168.60. 190.48.240.0 SPEC- 

9090 DATA "c". 129. 129. 165. 219. 219. 165. 129. 129 TTOjM 

9100 DATA "a".127.65.127.65.127.65.127.65 $ 

9110 DATA "d".254.56.56.56.56.16.0.0 I . H 

9120 DATA "f".96.96.56.248.56.40.36.98 - 

9130 DATA "a". 8. 8. 28. 54. 62. 54.28. 93 
9140 DATA -h". 136.73.42. 146. 124.42. 73. 72 
9150 DATA ".".24.36.66.255.66.36.24.0 
3160 DATA -a’.0.0.0. 1.3.7. 15.31 
9170 DATA "a".0.6.9.145.225.226.244.232 
9180 DATA - I-.31.15.22. 35.69.72.48. 0 
9190 DATA -■-. 184. 112.224. 192. 128.0.0.0 
9200 DATA "o'.24.60.110.251.255.110.60.24 
9210 DATA “o’. 93. 127. 127. 127.93. 73.93.85 
9800 INK 6 

9900 FOR n-0 TO 31s PRINT AT 21.nt"E"s NEXT n 

9910 FOR n-0 TO 31 STEP 2s PRINT AT 20.nt"E"s NEXT n 

9920 FOR n-0 TO 31 STEP 4S PRINT AT 19.nt"E"s NEXT ns RETURN 

9950 INK 2 

9951 FOR n-O TO 31 STEP 4: PRINT AT 19.nt"E': BEEP .01.ns NEXT n 

9953 FOR n-0 TO 31 STEP 2s PRINT AT 20.M-E": BEEP -02.nt NEXT n 

3955 INK 2: FOR n-0 TO 31s PRINT AT 21.nt“E"s BEEP .01.ns NEXT ns FOR f-0 TO 200 

: GO TO 1520 

9960 I&K 4: PAPER 0: BORDER 0: CLS : PRINT BRIGHT 11" JEDY 

AF Par Chr.atansan 23-6-*84" 

3965 PRINT • INK 7t BRIGHT It“Du ft.ddar i KontroIruamat oaa an af Jordan* for* 
varsttal.onar .o* *ar oaa an af da »an*a ovar-vaa*n.n«**Kaarma.Dat ar halt *k 
yfr.t saa du nan *a aastar af *t<arnar.Ovarst Kan du oisaa sa dan rOda dvaar**tJ 
arna 'BIVAL* .o* Kaa»oa oianatan *TRATUH*." 

9970 PRINT BRIGHT It*"Ptud*aI•* ko»»ar dar at fra-mad rumsK.b *u*anda nad ovar 
skaaraan.du naar iKka nan til KontroiKnaooarna fOr dat fOrata ikib ar « 

madarat aorf bran nadan undar.aan saa ar du mar til at basvara ansrabat !!!!" 
3975 PRINT * FLASH It“TRYK EN TAST": PAUSE 0 
9980 CLS : PRINT ’"Styr dit s.staKorn aad fOisanda tastar 
3382 PRINT ’-NED-’N* OP-'K*" 

3984 PRINT ’"VENSTRE-* Z' HOJRE-* X*“ 

3986 PRINT •-SKYD-’L’* 

3988 PRINT “(FLERE TASTER KAN HOLDES NEDE SAMTIDIG F.EKS. 'M’ OG ’Z*)" 

9990 PRINT *"HUSK .AT NAAR HODERSKI BET KOfWtER (NAAR DU HAR 12000 POINT).SAA SKA 
L DET RAHHES OVERST 1 "" 

9992 PRINT ’"DIN LASER SKYDER SAA HURTIGT AT DU IKKE KAN NAA AT SE SKUDET.MEN DU 
KAN TYDELIGT SE EFEKTEN HVISDU RAPir,£R" 

9994 PRINT * FLASH 1:"TRYK EN TAST": PAUSE 0: GO TO 8 
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■ I programmet LINE WRITER 
kan du med tekstbehand- 
lingsprogrammet Vizawrite fd 
din MPS 802 printer til at skrive 
i den linjeafstand, du onsker. 
Indtast programmet og save 
det. Ved opstart sporg pro¬ 
grammet om linjealstanden. 
hvor du kan vcelge Ira 1 til 
127. 

Etter dette skriver computeren 
et Me eksempel ud pd printe- 
ren, sd du kan se om alstan- 
den er rigtig. 

Endelig bliver du spurgt, om 
du vil loade Vizawrite eller 
stoppe. Hvis du vcelger Vi¬ 
zawrite, fdr du i programmet 
den onskede linjeatstand.n 
Peter Anker Jakobsen 


UNE WRITER 



COMMO 

DORE 

64 



PR I NT "Li" 

PRINT" COMMODORE MPS 802 MATRIX PRINTER" 
PRINT" LINIEAFSTANDSPROGRAMMERING" 

INPUT" JUMOTHHH AFSTANDSTAL (1-127) ";AF 
IF AF<1 OR AF >127 THEN 130 
OPEN 6,4,8:OPEN 1,4 
PRINTW6,CHR*< AF) 

FRINT#1,"DETTE ER LINIAFSTAND"AF 
PR INTH 1,“DETTE ER LINIAFSTAND"AF 
INPUT" gMMMi ER AFSTANDEN OK “;S* 

IF S*="N" THEN CL0SE6:CLOSE 1:GOTO 130 
IF S*<>"J“ THEN 180 

input"load vizawrite ";s* 

IF S*="N" THEN SYS64738 
IF S*< >“J“ THEN 210 

PRINT"B SKIFT DISKETTE & TRYK RETURN" 

GET A*: IFA*< >CHR*( 13) THEN 250 
LOAD"VIZAWRITE 64“,8,1:NEW 



Sortering 


Programmet er selvlorklarende 
Kurt Frits Hansen 


'Shell sort rutlne 

60000 ELEMENT AFSTANDX*2"INT(LOG(ELEMENT ANTALX)/L0G(2>)-1 
60010 ' 

60020 WHILE ELEMENT_AFSTANDX>0 

60030 FOR TAELLER1X=1 TO ELEMENT ANTALX-ELEMENT AFSTANDX 

60040 FOR TAELLER2X-TAELLER1X TO 1 STEP - ELEMENT.AFSTANDX 

60050 IF N0EGLER6(TAELLER2X)>N0EGLER»(TAELLER2X+ELEMENT.AFSTANDX) 

THEN SWAP N0EGLER»(TAELLER2X),NQEGLERf(TAELLER2X+ELEMENT.AFSTANDX) 
ELSE TAELLER2X-0 
60070 NEXT 

60080 NEXT 

60090 ELEMENT_AFSTANDX=ELEMENT AFSTANDX\2 :'Heltalsdivision 

60100 WEND 

Elemahtafstandeh har betydhlng for, hvor effektivt (hurtlgt) sorteringen 
forager. Hvla aortarlngen atartaa mad an ELEMENT.AFSTANDX p0 mellam 
ELEMENT.ANTALX og ELEMENT.ANTALX/2, og startvCrdien vflges s$lades, at 
alia eftarfolgende v<rdler ar ullga, opnde det bedate reaultat. Denne 
ttlpasnjng akar 1 linja 60000. Er der f.aka. tala om 120 elamanter, 
bliver fdrata v*rdi for ELEMENT_AFSTANDX llg mad 63, og da eftarfolgande 
v*rdier bliver 31, 15, 7, 3 og 1. 
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0050 //-programmer! CLAUS 0. THOMSEN-// w * 

0060 PRINT CHR*(12) 

0070 DIM t(7,7),sp»l* OF l,c* OF (2) . d* OF (2>,ms* OF 1 
0080 PRINT AT(11,1);"•# SOLITAIRE 

0090 PRINT AT (50, 10) ; .. 

0100 PRINT AT <50. 11>;"•* CT SOFTWARE 
0110 PRINT AT(50,12);PRESENTERER • 

0120 PRINT AT<50.13);"*• SOLITAIRE 
0130 PRINT AT(50,14) 

0140 PRINT AT(1,3);" 1 2 3 4 5 6 7“ 

0150 PRINT 

0160 PRINT "1 ' • ! 1“ 

0170 PRINT 

0180 PRINT "2 • • ! 2“ 

0190 PRINT 

0200 PRINT -3 !!!»!•! 3“ 

0210 PRINT 

0220 PRINT “4 ! ! ! ! • ! 4“ 

0230 PRINT 

0240 PRINT “5 !!!••!! 5“ 

0250 PRINT 

0260 PRINT "6 ! J • 6“ 

0270 PRINT 

0280 PRINT “7 ! ! 

0290 PRINT “ 1 2 3 4 3 6 7“ 

0300 EXEC forspergelses 

0310 //-// 

0320 PROC svarspil 
0330 REPEAT 

0340 PRINT AT(45,22);CHR*(30) 

0330 INPUT AT(1,22),"VIL DU SPILLE S* SKRIV J, ELLERS SA SKRIV N 

0360 UNTIL spi 1* IN "JjNn" AND LEN(spil*)>0 

0370 IF spi14 IN “Jj" THEN EXEC vardi 

0380 IF spilt IN *'Nn“ THEN STOP 

0390 ENDPROC svarspil 

0400 //-// 

0410 PROC vardi 

0420 qi-0 

0430 ri-0 

0440 REPEAT 

0430 ri-rM 

0460 FOR *1-1 TO 7 DO 

0470 IF rOl AND r<>2 AND r<>6 AND r<>7 THEN 

0480 t(r,*)»-5 

0490 ENDIF 

0300 IF *<>1 AND *02 AND *06 AND *07 THEN 

0310 t <r,*)«-5 

0320 ELSE 

0530 IF t < r, *) 0 3 THEN t<r,*)i—3 

0340 ENDIF 

0330 NEXT * 

0560 UNTIL r-7 
0370 t<4,4)i-O 
0380 EXEC brat 
0390 ENDPROC vardi 

0600 //-// 

0610 PROC brat 
0620 PRINT CHR*(12) 

0630 PRINT “ •* SOLITAIRE 

0640 Ml-0 

0630 PRINT “ 1234367“ 

0660 REPEAT 
0670 x!—x+1 

0680 PRINT AT <8,x»2*3);x;AT(43 ,m*2*3 >;n 
0690 FOR yi-l TO 7 DO 

0700 IF t (x, y> <> 0 AND t(x,y)<>-3 THEN 

0710 PRINT AT(9*y«4,x*2*3>;" •“ 

0720 ENDIF 

0730 IF t (x, y> <>0 AND t(x,y)<>-3 THEN 

0740 PRINT AT(9*y»4,x*2>3);“ 

0750 ENDIF 

0760 IF t (x, y) OS AND t<x,y)<>-5 THEN 

0770 PRINT AT(9*y*4,x*2»3>“ 

0780 ENDIF 

0790 NEXT y 

0800 UNTIL x-7 
0810 PRINT 

0820 PRINT “ 1 2 3 4 5 6 7“ 

0830 EXEC idov 

0840 EXEC flyt 

0830 ENDPROC brat 

0860 //-// 

0870 PROC flyt 
0880 REPEAT 

0890 PRINT AT(10,22);CHR*(30) 

0900 INPUT AT(1,22),“Flyt fra “l c* 

0910 IF c*-““ THEN EXEC flyt 

0920 IF c* IN "Ss“ THEN EXEC svarspil 

0930 IF LEN(c*>(>2 THEN EXEC flyt 

0940 IF c»(lD <CHR*(49) OR c* (1 s) > CHR* (55) THEN EXEC flyt 

0930 IF c*(2:> (CHR«(49) OR c*(2s)>CHR*(55) THEN EXEC flyt 

0960 INPUT AT(13,22),"til “: d* 

0970 IF d*»““ THEN EXEC flyt 

0980 IF LEN(dt) 0 2 THEN EXEC flyt 

0990 IF d* IN "Ss" THEN EXEC svarspil 

1000 IF d*(1:)(CHR*(49) OR d*(1:))CHR*(55) THEN EXEC flyt 

1010 IF dt(2> > (CHR*(49) OH d»(2:)>CHR*(35) THEN EXEC flyt 

1020 PRINT AT(1,22);"Flyt fra “;c*(1!);“,“;c»(2«);“ til “;d*(l*> 

1030 IF VAL(c*(ls>)(1 OR VAL(d*(1:))<i THEN EXEC flyt 

1040 IF VAL(c*(1 * >)> 7 OR VAL(d*(1!))>7 THEN EXEC flyt 

1050 IF VAL(c*(2t))>7 OR VAL(d*(2:))>7 THEN EXEC flyt 

1060 IF VAL(c*(2*))<1 OR VAL(d*(2:))<1 THEN EXEC flyt 




•Solitaire* er et meget gam- 
melt brcedtspil, som stadig er 
populcert i vide kredse. Den- 
ne version at solitaire korer i 
Comal 80 pd en Piccolo com¬ 
puter. 

Maskinen simulerer brcedtet, 
hvor der er 33 huller med smd 
•pinde* i hver med undtagel- 
se at den midterste. 

Det gcelder om at llytte og 
tjerne pilene etter bestemte 
regler, indtil der kun er en til- 


bage, som sd til gengceld 
skal vcere placeret i midten. 
Programmet er sddan set 
selvlorklarende, men lceg for 
en sikkerheds skyld mcerke til 
vores eksempel pd spillos- 
ning. Brcedtets udformning 
ligger i linierne 150 til 290. 

I linierne 770, 1250 og 1270 
kan man i stedet for to mel- 
lemrum danne et mellemrum 
og et 0 i printscetningen (»0«). 

Claus 0. Thomsen 


1070 
1080 
1090 
1100 
1110 
1120 
1 130 
1140 
1 130 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 

1240 

1230 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1330 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1430 

1460 

1470 

1480 

1490 

1300 

1310 

1320 

1330 

1540 

1530 

1360 

1370 

1380 

1390 

1600 

1610 

1620 

1630 

1640 

1630 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 


ai-VAL(ct(l*)) 
f i-VAL(c*(2D> 
g i -VAL (d* (ID) 
hi-VAL(d*(2>)) 

IF a<>g AND fOK THEN EXEC flyt 
IF t (a, f) 03 THEN EXEC flyt 
IF t(g.h) OO THEN EXEC flyt 
IF c*-d» THEN EXEC flyt 
ti-INT(ABS((e*g>/2>) 
jl-INT(ABS((f♦h)/2)) 

IF t(i,j><)3 THEN EXEC flyt 
EXEC tagn 
UNTIL q-31 
EXEC endgame 
ENDPROC flyt 


//- 


-// 


PROC tagn 
qi-q*l 

PRINT AT(9*f*4,e*2+3);“ “ 

t(a, f)i-O 

PRINT AT(9*j«4, ft*2*3){“ “ 

t(ft, 4 >1-0 

PRINT AT(9*h*4,g«2+3>;“ 

t (g, h) 1-3 

PRINT AT(33,11);q 

PRINT AT (63, 20) ;c* (11 > ; AT (63. 20) ;c*(2D 
PRINT AT(71,20);d*(1«)jAT(73,20);d*(2*> 
ENDPROC tagn 
//--// 

PROC hurra 

a i -O 

REPEAT 

PRINT CHR*(7) 

FOR ai—1 TO 230 DO 
MEXT a 
41 - 4*1 
UNTIL a-3 
EXEC tft 1lykke 
ENDPROC hurra 

//-// 

PROC mov 

PRINT AT (30, ID; “FLYT-" ;q 
PRINT AT(30,20);"8ID8TE TREKi 0,0 TIL 0,0“ 
ENDPROC mov 

//— -// 

PROC andgame 

IF t U,4) 0 3 THEN EXEC ivarapt 1 
EXEC hurra 

ENDONOC endgame 


er 

en le 

nftng t 

1 

SOLITAIRE 

1. 

Flyt 

fra 

(2 

4) 

til 

(4 

4) 

2. 

Flyt 

fra 

(3 

6) 

til 

<3 

4) 

3. 

Flyt 

fra 

(1 

3) 

til 

(3 

3) 

4. 

Flyt 

fra 

(4 

3) 

til 

(2 

5) 

3. 

Flyt 

fra 

(1 

3) 

til 

(1 

3) 

6. 

Flyt 

fra 

(1 

3) 

til 

(3 

3) 

7. 

Flyt 

fra 

(6 

3) 

til 

(4 

3) 

8. 

Flyt 

fra 

(3 

7) 

til 

(3 

3) 

9. 

Flyt 

fra 

(3 

4) 

til 

(1 

6) 

10. 

Flyt 

fra 

(3 

7) 

til 

(3 

7) 

11. 

Flyt 

fra 

(3 

7) 

til 

<‘> 

3) 

12. 

Flyt 

fra 

(3 

2) 

til 

(3 

4) 

13. 

Flyt 

fra 

(7 

3) 

til 

(3 

3) 

14. 

Flyt 

fra 

(4 

3) 

til 

(6 

3) 

13. 

Flyt 

fra 

(7 

3) 

til 

(7 

3) 

16. 

Flyt 

fra 

<7 

3) 

til 

(3 

3) 

17. 

Flyt 

fra 

(2 

3) 

til 

(4 

3) 

18. 

Flyt 

fra 

(3 

1) 

til 

<3 

3) 

19. 

Flyt 

fra 

(3 

4) 

til 

(3 

2) 

20. 

Flyt 

fra 

(3 

1) 

til 

(3 

1) 

21. 

Flyt 

fra 

(3 

1) 

til 

(3 

3) 

22. 

Flyt 

fra 

(3 

4) 

til 

(3 

4) 

23. 

Flyt 

fra 

(3 

4) 

til 

(3 

2) 

24. 

Flyt 

fra 

(3 

2) 

til 

(3 

2) 

23. 

Flyt 

fra 

(5 

2) 

til 

(3 

4) 

26. 

Flyt 

fra 

(3 

4) 

til 

(3 

6) 

27. 

Flyt 

fra 

(4 

6) 

til 

(4 

4) 

28. 

Flyt 

fra 

(4 

3) 

til 

(4 

3) 

29. 

Flyt 

fra 

(3 

3) 

til 

(3 

3) 

30. 

Flyt 

fra 

(3 

6) 

til 

(3 

4) 

31. 

Flyt 

fra 

(6 

4) 

til 

(4 

4) 


//- 


-// 


PROC ftnet rude 
PRINT CHR*(12) 

PRINT AT(20,1>;"•#•••••••••••••“ 

PRINT AT(20,2);"• •“ 

PRINT AT(20,3)SOLITAIRE #“ 

PRINT AT(20.4);“* e“ 

PRINT AT(20,3);“•••••••••••••••“ 

PRINT “Du skal flytte p»ndena, indtil dar Run ar an ft midten." 

PRINT “For at flytte en pind skal du sknve dans koordinater.“ 

PRINT “Det gar du ved, at skrive de to tal hvor den skal“ 

PRINT “flyttas fra. Derefter skrtver du tallane, t ft 1 der hvor" 

PRINT “den skal flyttes til. - 
PRINT 

PRINT “DU SKAL IKKE SKRIVE TALLENE MED KOMMA MELLEM DEM." 

PRINT “TALLENE SKAL LI66E MELLEM 11 06 77. " 

PRINT “PINDENE SKAL FLYTTES VED AT HOPPE OVER EN PIND," 

PRINT “TIL ET HUL. “ 

PRINT “DU KAN STOPPE SPILLET MED S. “ 

PRINT “DU SKAL SKRIVE DET LODRETTE TAL F0RST, DEREFTER DET VANDRETTE." 
EXEC svarspil 
EXEC vardi 
ENDPROC inet rues 

PROC forspergelses 
REPEAT 

PRINT AT(31,43);CHR*(30) 

INPUT ATM,22), "VIL DU HAVE INST RUKTI ONE R (J/N) “! ins* 

UNTIL ins* IN ”J,Nn“ AND LEN(ins*)>0 
IF >ns* IN "jj“ THEN EXEC mstrucs 
EXEC vardi 

ENDPROC forspergelses 

// - // 

PROC tillykka 
PRINT CHR*(12) 

PRINT “XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

PRINT 


PRINT “X 

PRINT “X T IL L YYKK 

PRINT “X T I L L Y KK 

PRINT “X 
PRINT “X 

PRINT “X X" 

PRINT “XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
EXEC svarspil 
ENDPROC tillykke 


TTTTT III L L 
T ILL 
T ILL 
T ILL 
T III LLLL LLLL Y 


K K 
K K 
KK 
K K 
K K K 


EEEEE 

E 

EEE 

E 

EEEEE 


//- 


-// 
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Easy Data 




l.DEL 


0 PR I NT "ITIEU 

1 PRINT“IHPr -14,16 pr 16*256,0 NEW 

3 PRINT "IHL0fiD".CHR*O4)."KRRT0":CHR*<34>;".: 

4 PRINT"nWOTT308.225 RUN* 

50 POKE 198,4 POKE 631,13 . 

60 POKE 632,13 

63 POKE 633,13 
70 POKE 634,13 
80 END 
100 PRINT - ;]" 

103 SAVE“ERSV DRTR 64",8 

107 PRINT 

110 OPEN 13,8:13 

120 GET# 13,8* PRINTR#; IF R«OCHR«< 13) THEN 120 

122 PRINT 

130 CLOSE 15 

1000 REN SAVE OOTO 100 


■ I dette databaseprogram 
kan du indlcegge op til 1500 
navne og adresse: pd folk. 
Du kan ogsd placere person- 
lige data pd hver enkelt og 
sage pd alle kriterier med 
undtagelse at de peisonlige 
data. Dem hai du tor dig selv. 
Programmet er opdelt i 2 
blokke og virker kun pd dis¬ 
kette. indtast del 1, og save 


den med GOTO 100. Indtast 
nu del 2, og save med GOTO 
62000. 

Programmet lylder ca. 10 K 
og kan anvendes med MPS 
801, 802 og flere andre printe- 
re. I programmet er ogsd ind- 
bygget dansk karakterscet.D 

Martin Bajstrup 
Torben H. Rasmussen 


2. DEL 


0 OPEN 15.8.15,"I” CLOSE 15GOSUB 61000 REM PRNSKE TE0N <R»R) 

1 REM *♦#«»»**♦**»»«*«»♦•»♦»♦»*»*»♦♦♦♦♦»♦*«» 

2 REM * ERSV'DATA 64 * 1541 <C) M.B.-T.H.P * 

3 REM *******«♦»«»♦♦♦♦♦»*»«*•*»•♦•*»*♦•»**•» 

7 POKE650.128 
10 D-0 

90 DIMN*< 1588),A*<1500).P#<1508).T*<1500),D*<1508) 

100 POKE53280 • 0 P0KES3281.0 PR I NT '• 3r 

110 PRINT"# 9". 

120 PRINT"# EfiSV DRTR 64 « 1541 <C) M.B.-T.H.P ■" 

130 PRINT"# 9", 

150 PRINT" OB# 1 9 NVE DRTR" 

160 PRINT" B# 2 9 S0GNINO-RET I DRTR 
170 PRINT" (1# 3 9 SLET DATA" 

180 PRINT" HB# 4 1 SAVE DRTR" 

190 PRINT" B» 5 9 LORD DRTR" 

221 PRINT" MB# 6 9 0DSKRIFT RF RDRESSE LISTE” 

230 GETX* 

240 IFX*-"1"THEN 1000 
230 IFX*»"4"THEN2008 
260 IFX*-“3"THEN3@00 
280 IFX$-"2"THEN5000 
300 IFX*»"3"THEN 9000 
310 IFX*-"6"THEH 47000 
320 OOTO230 

1000 REM ** NVE DRTfiER I KRRT0TEK •* 

1005 GOSUB 60080 

1006 PRlNT'sUWBKBianmBBMBBIIlIlIBBK »" 

1007 PRINT"*_", 

1008 PRINT"# NVE DRTRER I KRRT0TEK 9" 

1010 N*<D>-"" INPUT"'iWtV<WiW>W,N*<D> IFN*<D>*""THENN*<D>»"-" 

1020 A*<D>- IFA*<D>-""THENfl*<D>*"- - 

1030 P*<D>-"" INPUT,P#(D) IFP«(D>-""THENP«(D>-"-" 
1040 T*<D>-"" INPUT-VM.-WAWAW'.mD) IFT*<D)-""THENT*(D>-“-" 
1030 D«(D)»"" INPUT"'ATjWlMiWjM",D*'.D) IFD*(D>-""TH£ND*<D>-"-" 
1060 PR I NT 11 aBUGlHHUHHHHHHnnnHHHIfi# ER DRTR 1 0RDEN <J/N) ■" 


1008 PRINT"# NVE DRTfiER I KRRT0TEK 9" 

1010 N*<D>-"" INPUT"'iWtV<WiW>W,N*<D> IFN*<D>*""THENN*<D>»"-" 

1020 A*<D>-.. IFA*<D>-""THENR*<D)*"- - 

1030 P*<D>-"" INPUT"'.WlTitiViWiTB'.PKD) IFP«(B>-""THENP«(D>-"-" 

1040 T*<D>-"" INPUT-VM.-WAWAW'.mD) IFT*<D)-""THENT*(D>-“-" 

1030 D«(D)»"" INPUT"'ATjWlMiWjM",D*'.D) IFD*(D>-""TH£ND*<D>-"-" 

1060 PR I NT 11 aBUGlHHUHHHHHHnnnHHHIfi# ER DRTR 1 0RDEN (JXN) ■" 

1070 GETX* IFX*-"N"THEN1006 
1080 IFX*O"J"THEN1078 

1083 D-D*l L*-"***•" N*(D)»L* A*<D>-L* P*<D)-L* T*<D)-L* D*<D)-L* 

1090 GOTO 100 

2000 REM ** SRVE DRTR PR DISKETTE «* 

2001 PRINT'T]_ 

2002 PRINT"# SRVE DRTR PA DISK 9" 

2003 OPEN 15,8,13,"I"-CLOSE 15 

2007 INPUT "WHIMS FILENS NRVN III" , 0* IF Q*-"" THEN GOTO 100 

2008 V#-"KX"*0»*".S,W" 0PEN2.8.2.V* 

2009 FOR X-0 TO D*1 

2010 PRINT#2,N*<X>PRINT#2,fl*<X> PRINT*2.P*<X> PRINT»2,T*<X):PRINT#2,D*<X> 
2020 NEXT X 

2030 CLOSE 2 
2040 GOTO 100 

3000 REM •• LORD DRTR PR DISKETTE •• 

3001 PRINT". - ]_"i 

3002 PRINT"# LORD DRTR PR DISK ■" OOSUB7000 OOSUB 63000 

3003 OPEN 15,8.13,"I" CLOSE15 

3004 INPUT "WWBB# FILENS NRVN «l",0* IF 0*-"" THEN OOTO 100 
3007 V*-"KX"* Q>*",S,R" 

3009 D-l 0PEN2,8,2,V* 

3010 !NPUT#2,N«(D) 

3011 INPUT#2,fl*<D) INPUT»2,P»(D).INPUT#2,T#<D)UNPUT#2,D*<D) 

3020 IF N*(D)-"**«*" THEN CLOSE 2-00T0 100 

3030 D-D*rGOTO 3010 

4000 REM »» RET DRTRER I KRRTOTEK *» 

4001 PRINT'WHHHHH H HHHHHIMMCIHIB f 

4005 OOSUB 60000 

4007 PRINT"*_■; 

4008 PRINT"# RET DRTRER I KRRTOTEK 9" 

4009 GOSUB 35000 

4010 INPUT"*OTB»Wlf«t«rifiTtWtW",N#<0) 

4020 INPUT" lt lW , W ,V , TV ; R»(0) 

4030 -INPUT"»TlWiW«WlWir ;P*<G> 

4040 INPUT"iflWlW«riWiW";T#<0) 

4030 INPUT 11 W m W W WlTB", D«<G) 

4060 PRINT"*MeM«HHnHHaHHBDianai«S ER DRTR I ORDEN tJXN) r 

4070 GETX«:IFX*-"N"THEN4000 

4080 IFX*O"J"THEN4070 

4090 GOTO 100 

4120 GOTO30030 

3000 REM #* S0G I KRRTOTEK •« 

5001 GOSUB 60000 

3007 PRINT"*___•; 

3008 PRINT"# S0G I KRRTOTEK 9" 


3010 PRINT Ba-B CCrCCCC t CCCttmua F19 S0O P* NRVN # F5 ■ lio PR BV" 

3020 PRINT"*# F3 B S0G PR RDRESSE # F7 ■ S0G PR TLF." 

3070 OETX* 

3080 IFXf-"B"THEN10000 REM S0O PR NRVN 
3090 IFX$-"B"THEN20000 REM S0G PR RDRESSE 
3100 IFX#-'TI"TMEN38000 REM S0O PR BV 
3110 IFX*-"II"THEN40000 REM S0G PR TLF. 

3120 OOTO5070 

*oe« PRINT 

7001 PRINT 

7002 PRINT 

7010 PRINT - # DRTR CRTRLOO ■”) 

7020 FORN-1 TO 16 

7030 PRINT"# B SB # ■" : 

7040 NEXT 

7030 PRINT"# B"I 

7499 RETURN 

9000 REM •• SLET I KRRTOTEK •• 

9001 PR IN T 1 B" 

9003 OOSUB 60000 

9007 PRINT”*_"i 

9008 PRINT"* SLET DRTRER I KRRTOTEK B" 

9010 PRINT"* ■*#—»— I INDTRST NOOET RF NRVNET PR DEN DRTR" 

9012 PRINT-# DER SKRL SLETTES." 

9019 INPUT ■CEOBrtWiWlWiW". N* N-LENIN#) : IF N*-”" THEN 1M 

9020 FOR 0-1 TO D IFLEFT*(N*<0>,N)-N#THEN OOSUB 9040 
9030 NEXTG 

9036 OOTO 100 

9040 GOSUB 60000 GOSUB 53000 

9041 PRINT RCCCBCCCait CB L-mi . -a C CCS ER DET DEN PER SKRL SLETTES (JXN) 1" 

9842 E«-"" 0ETE« IFE*-"N"THENRETURN 

9043 IFE*-"J"THEN 9043 

9044 OOTO 9042 

9043 N»<G>-"":fl«<0>-"" P*<0)-“" ... 

9030 GOTO 100 
10000 PRINT - *" 

10010 INPUT" BOlWstiWsNWB , N* N-LENIN*) : IFN«-" "THEN 100 
10020 FOR 0-1 TO D IFLEFT*CN*CG),N)»N*THEN OOSUB10040 
10030 NEXTG 
10036 OOTO 100 

10040 OOSUB 60000 OOSUB 35000 

10041 PRINT-aeBBCBBCBialKinanHIMMS VfiR DET DEN UD S0OEDE <JXN) ■" 

10042 E«* - " GETE» IFE*-”N"THENRETURN 

10043 1FE*-"J"THEN10043 
18044 GOTO 10042 

10045 PR I NT * WlMCMCfHHHHRHHHHHIM# SKRL DISSE DRTR RETTES <JXN> ■" 

10046 GETX* IFX*-"N"THEN10050 

10847 IFX*«"J"THEN GOSUB4000 GOTO11130 
10048 GOTO 10046 

10050 PR I NT - WIBKMMfTOHIMMOHlM# VIL DU HRVE DEN UD PR PRINTEREN <J/N> B" 
10053 GET Z* IF Z*-"N" THEN00T011130 
10060 IF Z*-"r THEN GOTO 46000 
, 10065 GOTO 10055 

11150 IF E*-"J" THEN 100 

11151 GOTO 43000 
20000 PRINT"*" 

20010 INPUT-nBOTsVW.-TsW.-W’,fi* N-LEN<fl*> : IFfl*.'"'THEN100 
20020 FOR G=1 TO D IFLEFT*<R*(0>,N)=fl*THEN GOSUB20040 
20030 NEXTG 
20036 GOTO 100 

20040 GOSUB 60000 : GOSUB 33000 

20041 PRINT" anODIMOSBKBBHBBBOCBBBa VRR DET DEN UD S0GEDE <JXN> 9” 

20042 E*="" GETE* IFE*-”N"THENRETURN 

20043 IFE6-"J - THEN20045 

20044 GOTO 20042 

20045 PRINT"arHHHHHHUHIPHHHHHIMBBCa SKRL DISSE DRTR RETTES CJ/N) 9" 

20046 GETX* IFX*-"N"THEN20050 

20047 IFX*- - J"THEN GOSUB4000 GOTO11150 

20048 GOTO 20046 

20050 PRINT" SBGlMBmMMTOISIMlWnSa VIL DU HAVE DEN UD PR PRINTEREN <J/N> 9" 
20055 GET Z* IF Z*-"N" THENG0T011150 
20068 IF Z*-",T" THEN GOTO 46000 
20065 OOTO 20055 

21150 IF E#=”J” THEN 100 

21151 GOTO 45000 
30000 PRINT"*" 

30010 INPUT- KnMOTATAWif.-WiW", P* N-LENCP*) : IFP»=""THEN100 
30020 FOR G=I TO D IFLEFT*<P*(G),N)-P*THEN GOSUB30040 
30030 NEXTG 
30036 GOTO 100 


30041 PRINT" 


VRR DET DEN UD S0GEDE 'I.VN) 9" 
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Commodore tricks 



Hot»CI» Ihown 


30042 E*="" GETE* IFE*="N"THENRETURN 

30043 IFE*=".>“THEN30045 

30044 GOTO 30042 

30045 PRINT cfBCllpaaiMJiIGKKFjBlWlISIWa SKAL DISSE DATA RETTES <J/N> SI- 

30046 GETX* 1FX*="N"THEN30050 

30047 IFX*="J"THEN GOSUB4000 GOTO11150 

30048 GOTO 30046 

30050 PP IN- Sr.OX-EKOSCfXCiXKFXKfflS VIL DU HAVE DEN UD PS PRINTEREN <J/N> B" 
30055 GET ZS IF Z*=''N" THENGOTO11150 
30060 IF ZS-" ]" THEN GOTO 46000 
30065 GOTO 30055 

31150 IF ES=-J” THEN 100 

31151 GOTO 45O00 
40O00 PPINT-a- 

40010 INPUT-,T* N*LEN(T*> 1FTT='"'THEH100 
40020 FOR G=1 TO D IFLEFT*<T*CG>,N;'=T*THEN GOSUB30040 
40030 NEXTG 
40036 GOTO 100 

40040 GOSUB 60000 GOSUB 55000 

40041 print ■■eomxermrxrmntmma VMt det den ud SOOEDE <J/n> b" 

40042 Et='"' GETEJ IFE*="N"THENRETUPN 

40043 IFE*=".I"THEN40@45 

40044 GOTO 40042 

40045 PR IN" giXKiXKKOX’X'XKKCKMS SKAL DISSE DATA PETTES <JXN> B" 

40046 GETXf IFX*«"N"THEN40050 

40047 IFX»*"J"THEN GOSUB4000 GOTO11150 

40048 GOTO 10046 

40050 print "mi xa at mo m m am m s vil du have den ud pa printeren <jxn> b- 

40055 GET Zt IF Z*=."N" THENG0T011150 
40060 IF Z**"J" THEN GOTO 46000 
40065 GOTO 40055 

41150 IF E*-"J" THEN 100 

41151 OOTO 45000 

44060 IF Z**-J" THEN GOTO 46000 

45000 PRINT-IT 

45005 RETURN 

46000 OPEN 4.4 

46010 SA*-CHR*<15> 

46020 PRINT*4,SA*,N*(G>." ",A*<G>.” ",P*<G>;“ TLF.“.T*<G> 

46030 PRINT*4 
46040 CL0SE4 
46050 GOTO 100 
47000 OPEN 4,4 

47010 SA*«CHR*<15> S0*-CHR*<14> 

47011 PRINT*4,S0*."EASV DATA 64 £ 1541 ADRESSE UDSKRIFT" 

47012 PRINT* 4. SO*.-- 

47015 FORB-i TO D-l 

47050 IFN*<B>0--"THEN PRINT*4.SA»,N*<B>, " ".A*(B)i" ".P*<B>;“ TLF.";T*<B> 

47060 NEXT B PRINTH4 CLOSE 4 
47070 OOTO 100 
55000 REM 

55010 PRINT ■•mOtnMMMMMM" N*<G> 

55020 PRINT-MMMMMmM".Rt<G) 

55030 print "mtmmmir 

55040 PRINT'"iW*WiW>M".T*<0> 

55050 PR I NT ~ •I HW m HWW U ll H M"; D« < Q > 

55060 RETURN 
60000 PRINT'S"; 

60010 PRINT-Ot", 

60020 PRINT "- 

60025 PRINT" 

60030 PRINT”NAVN "i 

60040 PRINT" ■; 

60050 PRINT"ADRESSE : ", 

60060 PRINT" 

60070 PRINT"BV 
50080 PRINT" 

60090 PRINT"TLF. : 

60100 PRINT" 

60110 PRINT'DATA "; 

60120 PRINT" 

60130 PRINT" 

60140 PRINT" "I 

60150 PRINT" "I 

60160 PRINT" 

60170 PRINT" 

60180 PRINT- 

60200 RETURN 

61000 FOR T=0 TO 54 READ A POKE 49152-T.A NEXT T SVS 49152 
61010 FOR R-0 TO 23 READ C POKE 2264*R,C POKE 3288*R,255-C NEXT R 
61030 RETURN 

61040 DATA120.169.0,133.251.133.253,168.169,208,133,252,169.8 
61050 DATA133.254,170.165.1,41.251.133.1.177,251,145,253,200 
61060 DATA208,249.230,252.230,254,202.208.242,165,1,9.4,133,1 
61070 DATA 173,24,208.41,240, 9,2. 141.24,208,88, 96 
61080 REM DATA FOR DE DANSKE TEGN '*«»> 

61090 DATA62,120,216,254,216.216,222.0 
61100 DATA6.124,206,222,246,230.124,192 
61110 DATA24.0,60,102,126.102,102-0 
62000 REM SAVE PROGRTMET 
62005 PRINT "3" 

62010 SAVE"KARTO".8 
62015 PRINT 
62020 OPEN 15,8.15 

62030 GETH15.A* PRINTA*. IF ASOCHP*< 13)THEM 62030 
62048 CLOSE 15 END 

63000 OPEN15,8,0,"I" CLOSE 15 

63001 OPEN15.8.0, "*0 K/4" PRINT"sW8nnHK" W=0 
63010 FOR N=0 TO 30 GETtl5,A* NEXT 

63020 GET*15,AS,B* 

63030 0ET*15,A*,B* 

63040 GET*15,A*,B* 

63050 C=0 

63060 IF AJO-" THEN C=ASC<A*> 

63070 IF B*<>" THEN C=C»ASC<B*)*256 
63090 0ET*15,B» IF STO0 THEN 63200 

63100 IF B*OCHR*<34> THEN 63090 

63101 IF W<8 THEN PRINT-SV", 

63102 IF W»8 THEN PRINT"«B«0>lrtB' 

63103 IF W>8 THEN PRINT"IWsMAWiTsWsfsTATsMtfsWsW, 

63104 IF W=8 THEN PRINT^IsfifSfsfiJjfsfiMsMsTitsMiTsTsTiTSTjl" 

63105 IF W=16 THEN GOTO 63200 

63109 GET*15,A* GET*15,A* 

63110 GET*15,B* IF B*OCHR*(34>THEN PRINTS*, G0T063110 
63120 GET*15.B* IF B*=CHR*<32> THEN 63120 

63140 C»=C*‘B* GET»1S.B* IF 8*0"" THEN 63140 
63150 PRINT" - W=W*I 
63170 IF ST=0 THEN63030 
63200 CL0SE15 RETURN 
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Razzia 


Racerbiler og pac-mcend er 
scerdeles populcere som 
computerspil. men Razzia er 
hverken ost eller biler i 
gcengs lorstand. Det er en helt 
ny kombination. 

Du skal styre en lille racerbil 
rundt i en labyrint med en ra- 
sende lari, samtidig med at 
du konstant risikerer at stode 
ind i den anden bit (pas pd, 
den korer som en brcekket 
arm). Turen koster buler, 
mens llagene giver points. 
Ndr alle llag er samlet (og det 
skal gd stcerkt, lor du er ikke 
alene), kommer et lille skilt 
Irem med teksten "WAY 
OUT". Det gcelder nu om at 
nd Irem til skiltet, inden det 
lorsvinder. lor at dukke op et 
andet sted pd banen - stadig 
uden at ramie ind i den an¬ 
den bil . . . Lyder det svcert? - 
det er det! 

Der er mange forskellige ba- 
ner at komme igennem, in¬ 
den der uddeles bonus. Pd 
hver bane er der forskellige 
ting at sarnie, og Here points 
at tjene. Racerbilen styres 
med kun to knapper, en 
knap vil Id bilen til at dreje til 
hojre ved nceste hjorne, og 
en knap vil Id den til at dreje 
tilvenstre. 1, 2, 3. 4. 5drejertil 
venstre og 6, 7. 8, 9, 0 drejer til 
hojre. Det er pd den mdde 
muligt at bruge joysticks som 
bmger piletasterne, samtidig 
er det ogsd muligt at bruge 
joysticks al Kempston-typen. 
Der er fire svcerhedsgrader: 
LEARNER er den letteste, EASY 
og HARD er svcerere og 
GRAND PRIX er meget svcEr. 
Pd nederste linie vises under 
hele spillet den aktuelle sco¬ 
re, antal liv der er tilbage, det 
niveau der spilles pd (level) 
samt den hidtil hojeste score 
(high-score). 

Indtastning: 

programmet bestdr al to dele, 
et kort BASIC-program pd fern 
linier og ca. 5K maskinkode. 
Det smarteste er at taste ma- 
skinkoden ind forst. og der- 
ncest de fern linier BASIC, efter 
denne opskrift. 


1) Tast CLEAR 27499 ENTER 
Det sikrer. at der er plads til 
maskinkoden, og at den ikke 
slettes ved et uheld. hvis der 
tastes lor meget BASIC ind el. 
lign. 

2) Indtast en decimal-loader 
som vist. sdledes at maskin¬ 
koden kan tastes direkte ind 
Det lille program sorger lor at 
poke de 4875 tal ind i compu- 
terens RAM-lager for adresse 
27500 til andresse 32375. For 
hver 10 bytes maskinkode, er 
der udskrevet et checksum, 
som skal passe med den der 
udskrives i loader-program- 
met. 

3) Ndr hele maskinkodede- 
len er tastet ind og fundet ior- 
den, kan decimal-loaderen 
slettes med NEW. Det er ikke 
larligt at bruge NEW her. da 
maskinkoden er beskyttet 
over RAMTOP elter CLEAR- 
kommandoen. 

4) Indtast nu de lem linier BA¬ 
SIC og skhv RUN 100 ENTER 
Programmet bliver nu savet 
pd bdnd i to dele, forst den 
korte stump BASIC med nav- 
net "RAZZIA" og derncest den 
lange del maskinkode med 
navnet "WAIT''. 

Hvis alt er tastet korrekt ind 
skulle programmet nu virke 
som beskrevet. men det er 
desvcerre ret sandsynligt at 
du har begdet mindst en lejl i 
de omkring 8000 indtastnin- 
ger, og den ene lejl kan vce- 
re nok til at programmet ikke 
vil starte. Veer derlor meget 
omhyggelig med at teste 
checksummeme. 

Skulle det veere nodvendigt 
at save maskinkoden. inden 
den er tastet ind. kan det go¬ 
res med SAVE "maskinkode” 
CODE 27500.4875 ENTER 
Det kan loades igen med 
CLEAR 27499 ENTER 
LOAD " " CODE ENTER 
Vi kan lorsikre at den tid det 
tager, at taste programmet 
ind langt overskygges al den 
tid der kan bruges pd at spil- 
le det. 


Rolf V. 0slergaard 



0ECIHALL0ADIR TIL RAZIA (INDTAST ET TAL AF (JANSEN! 


10 LET ••37300 
30 PRINT A. 

30 LET 

40 FOR TO »»9i 
50 PRINT 'Sv» - •(• 

50 LET *•! 

70 IF t >«33J73 THEN 
80 30 TO 30 


INPUT -DATA IStcl »* I at PORE l.fll LET •••TPEEK 1: NEXT I 
STOP 


SASIC TIL RAZIA (SRRIV 30TO 100 FOR SAVE) 


10 CLEAR 374991 INK 7| PAPER 01 FLASH 0: BR13HT 0: OVER 01 INVERSE 0! BORDER 0 
I CLS 

30 PRINT AT 10.6; 'RAZIA IS LOADING'! INK 0 

30 BEE» .1,6; BEEP .05,6i BEEP .1.13; BEEP .03,131 BEEP .1,18 

40 LOAD "CODE ; PRINT USR 37300 

100 SAVE 'RAZIA- LINE 10; SAVE CHRS 33TCHR0 13+CHR0 14TCHR0 16+CHRf 7*'UAIT'C00 
E 37300,4073 
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mask:mode t 


«AZIA SOM OECIMALLIST < IAE5 FRA VENSTRE MOO H0JRE 


27350 

27360 


28360 

28370 
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Pirate Fighter 


COMMO 

DOM 

64 


Med dette program kan du 
gore livet surt tor smdpirater. 
Programmet kan nemlig 
lcegge en autostartrutine tor- 
an dine bdndprogrammer. 
Desuden er RUNSTOP/RESTO- 
RE iunktionen sat ud at drift, 
sd snart programmet starter 
op. De udenlandske softwa- 
rehuse benytter sig i ovrigt af 
en lignende rutine til beskyt- 
telse at deres dyre program¬ 
mer. 

Du skal forst save program- 


\ 


met, ndr du har indtastet det. 
Derncest tekster du det for fejl. 
Ndr det hele virker. skal du i 
programmet indlcese det 
program, du vil beskytte. Der- 
efter saver du en ny beskyttet 
kopi af dit program ned pd et 
nyt bdnd. 

Du vil automatisk fd alle 
meddelelser om. hvad du 
skal gore i hver del af pro¬ 
grammet. Egentlig forklaring 
er derfor unodvendig. 

Kristian Otosen 



V '/ 



/\ 



10 REM 4 SOFTWflRE-BESKVTTELSE * \ 

20 REM <C> KRISTIAN OTTOSEN 1385 
30 REM TLF. 06-992362 / 

40 REM Ki f) 

50 P0KE53281,0:PRINT"34" Iff / 

60 PRINT" !-jfc/ ' 

70 PRINT"I SOFTWflRE-BESKVTTELSE I"; 

80 PRINT"I <C> KRISTIAN OTOSEN 1985 I"; 

90 PRINT" 1 - jCl 

100 PRINT"® VENT!" 

110 FORX*49403TO49477 : READDX JrV§A 

120 POKEX , DX • A=A+DX : NEXT f 

130 IFAO7570THENPRI NT" FEJL I DATA 1":END ' tP\ V 

140 F0RX*49664T049687 : READDX /Ejt 

150 POKEX, DX '■ A=A+DX : NEXT Hal 1 ’ 

160 IFAOl 1324THENPRINT"FEJL I DATA 2" END L 

170 FORX=49888TO49920: READDX PSA 1 

180 POKEX , DX : fl*fl+DX ; NEXT f V&M 

190 IF AO 13332THENPRI NT "FEJL I DATA 3": END f X£\\ 

200 FORX=50000TO50106 : READDX / \x\\ 

210 POKEX,DXA«A+DX ; NEXT / 

220 IFA026662THENPRI NT" FEJL I DATA 4" END f K l| 

230 PRINT"MO<LARG0R ORIGINAL BRAND 00 TRVK <RETURN>" / v 1S-L 

240 POKE 198,0 1 

250 GETR* : IFA$=""THEN250 -^7 

260 PRINT'TMSVS 500004" : POKE 198,2 P0KE631,19: P0KE632,13 
270 REM *#4#* DATA 1 ***** 

280 DATA 141,0,192,169,87,141,36,3,169,241,141,37,3,169,5,133,198,169,19,141 
290 DATA 119,2,169,82,141,120,2,169,85,141,121,2,169,78,141,122,2,169,13,141 
300 DATA 123,2,169,225,141,40,3,142,1,192,162,0,169,32,157,0,4,232,208,250 
310 DATA 173,0,192,174,1,192,76,87,241,0 
320 REM ***** DATA 2 ***** 

330 DATA 162,224,189,0,194,32,210,255,232,208,247,169,0,133,198,32 
340 DATA 228,255,201,0,240,249,96,0 
35ft REM #$$$$ DRTR 3 

360 DATA 13,13,83,75,73,70,84,32,66,65,65,78,68,32,79,71,32,84,82,89,75,32 
370 DATA 60,82,69.84,85,82,78,62,32,13,0 

380 REM ***** DATA 4 4*44* 

390 DATA 169,1,170,168,32,186,255,169,0,32,189,255,169,0,32,213,255,32,0,194 
400 DATA 162,0,189,65,3,157,0,196,232,208,247,162,0,189,0,193,157,16,196,232 
410 DATA 208,247,169,81,141,36,3,169,3,141,37,3,169,1,170,168,32,186,255,169 
420 DATA 255,162,0,160,196,32,189,255,169,36,133,251,169,3,133,252,169,251 
430 DATA 174,63,3,172,64,3,32,216,255,169,87,141,36,3,169,241,141,37,3,32,129 
440 DATA 255,32,0,194,76,80,195,0 
450 END 




•HCT 

*»n»Chi TNsywr, 
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5XKAJ 


■ 15 x KAJ skal du med en lil- 
le kugle fjerne alle krydser. 
som belinder sig inden i nav- 
net 5xKAJ, som lylder hele 
skcEimen. 

Alle krydser har lorbindelse 
med hinanden, sd du kan 
rydde dem alle al vejen. Pas 
pd at du ikke stoder ind i 
vceggen lor mange gange. 
da du kan risikere at ende di¬ 
ne dage med en bundrekord 
al rang. 

I ovrigt gcelder det om at tjer- 
ne alle krydserne sd hurtigt 
som muligt, da der bliver ta- 
get tid pd denne scerlige dis- 
ciplin i CBM-time.D 

, Nils Lausten 






.y. vro 




4 C-99999 

3 PRINT-.T POKE33280.1 P0KE33281-1 

7 00SUB79 

8 v-0 B-e 

9 N-e u-e 

10 X-PEEKC197) 

20 IFX-62THEHN-N-40 IFP£EK<1103*H)-102TMENN-N*40 GOSUB60001 
30 IFX-10TMEHN-N-*40 IFPEEKCl 103*N)-102THENN-N-40 GOSUB60001 
40 IFX-17TMEHH-N-1 IFPEEKU1OT*N>«102THEMN«M*1 GOSUB60081 
30 IFX-44TMENN-NM IFP£EK<1103*N>-102TWENN-N-1 GOSUB60001 
60 IFN<0THENN-0 
63 IFN>999THENN-999 

67 IFPEEK'lie3*N)-43THENV-V*l IFV-338THENPOKE33280.2 P0KE33281.2 OOTO30000 

68 POKEl103+N.81 P0KE33377*H.2 
70 P0KE1103*H.32 

76 B-B*l 

77 OOTO10 

79 PR 1 nt " ■■■■■■■■BBBraBBnBinBDnBnnr'" 

80 PftINT"0»****** ——B »»— 

81 PRIMT"*^*****B*BB*B**«Bk*B»**«BK*****^l" 

83 PRINT 

83 PRlNT-»**HHHMB**t*«*HK*aK*nMB**a 

86 PR I NT 

87 PRlNT'>>HHHBHhti>..H.**...MBI**l 

88 PRINT 

90 PRINT“*******B»****BB^***»**»**aH»«»+*» 

92 PRINT"»^*^»**»****»**B***BH**H*«B««»**0“ 

93 PRINT”«**B**»«*«B**»**»***»H*BB**«MB»**r' 

94 PR IWT ♦♦■B**«B* 

93 PR I NT "■■■■**•■■■■■■»*» BB* 'MB** »* *■»*♦*" 

96 PR I NT ‘ *BB* ♦♦»•*■* ♦*♦*!■*** I” 

97 PR I NT _ 

98 PRINT-B******* ——K ♦■B»»1B»♦♦♦♦♦♦>" 

99 PRINT“BB*♦ 

100 PRINT-HHBMBHBBMIBBBni'IKJSl’' 

200 RETURN 

30000 PR INT "IT’ PRINTTRB<200> 

30001 PRINT”JBRRV01 DU GJORDE DET Pftfl",B•"TIDSENHEDER” 

30004 IFB<CTHEN C-B 
30003 PRINT"MIOHSCORE ”.C 

30007 PRINT PRINT PRINT-RNTRL KRNTSTODNINGEP ".N IFW>0THEN0-W 

30008 PRINT PRINT’REKORD I KPNTST0DNINGER ".0."<PINLI0T)“ 

30009 PRINT PR I NT ” IOEN"* " 

30010 OETR* IFM --J-THEN3 
30020 OOTO3O010 

68001 P0XE34296.13 POKE34277.0 P0KE3427B,248 P0KE34273-4 P0»'E34272,208 

60002 P0KE34276.17 FORT-1TO100 NEXT P0FE34276.16 
68003 N-W*l RETURN 


Morsetrcener 


Kan du morseallabetet? 

Hvis ikke. har du her chan- 
cen lor at fd oversat Ira nor- 
malt sprog til morsekoder. 
Indtast blot ordet eller scetnin- 
gen, sd viser Spectrum koder- 
ne pd skcermen. 

Jens Ulrik Pedersen 


C^\ 







1® REM lUBUHOHSiaill 

3® REM OMFORMER DK TIL HBOHI 
3® POKE 3365®,6 POKE 33609,1® 

* 1® BORDER ®: PRPER ®: INK 7: C 
L6 : PRINT RT 8,6, FLASK Xi"M0R5 

E ^S?*gT l ii?SrWoRN5K TI 

L 6® R DIM bl160) DIM 4 1500) 

7® LET K»«"": LET V4C.0 

9® PRINTER? 7 13,®,"NUL, R. • FI 
NDE6 UNDER ■ N, E, A": PAUSE 10® 
10® RESTORE 11® FOR X.6S TO 90 

: RERD > LET b(X)*S: NEXT X 

i^!iTi$i‘?i?iJh?i!$:fih^f 

1,333,1331.3313,131,111.8.113,11 
X **8 TO 57 

X: B Se|p‘ ;®*iTxil®! ’beep e #®s!?*4 

e i3® E DRTR 3331.13333,11333,11133 
,11113,11111.Sllll.33111,38311.3 

1*0 LET bl157)>33333: LET bl1*8 
1.1212 LET b(l**>*13313: LET b( 
*61.111111: LET bl**l*233332: LE 
T b(63)*113211 

ill lIt WV ’ 1 CL6 : INPUT "DIN 

SRTN. : "i LINE at 

170 PRINT RT 0,0.af 

180 FOR *=1 TO LEN 

19® IF •»(»)■" ''THEN LET Kt*tt 

♦ ■'*•': LET V«C1; 00 TO 3*0 

see IF 1)1 AND V4C*0 TMEN LET K 

I.*•♦"3" 

210 LET v* r *0 

32® LET 4 (S 1 *b (CODE <(1*1) 

330 LET l*.K*.STR* * (S> 

3*0 NEXT S 

250 FOR **1 TO LEN Kt 



36® IF l*(»J«"l" TMEN LET K((>) 
■CMR$ 15* 

37® IF !$(*)."3" TMEN LET K|(*> 
•CMRI 155 

36® IF 11(11•"3" TMEN LET Kt(t> 
•CHR| 158 

39® IF HI*)."*" TMEN LET Kt(t) 
*300*NEXT 5 

310 LET KI*KttCHR« 159 

pSil BEip T .l?10: BEEP .1.30 BEE 

^3*0* INPUT "0N5KES DETTE P* PRIN 
TER ? "i»*: IF TMEN LPRIN 

T 3sI INPUT "-RUN- I0EN ?";*•: I 
F »»<>"N" THEN 00 TO 160 
360 STOP 

370 LET 0R1.BIN 00100100: LET 0 
R3-BIN 001000: LET 0R3.BIN 00100 
100: LET OR**BIN 0010010® 

380 RESTORE 400. FOR C*1 TO 7: 
READ U«: FOR D*0 TO 7: RERD I: P. 
OKE USR Ut*0,I: BEEP ,002,DoC 
390 NEXT D: NEXT C: RETURN 
*00 DATA "K",0,0,0,BIN 00011000 
.BIN 00011000,0,0,0: REM . 

*10 DATA "L",0.0.0,BIN 01111110 

•SIS DRTR^"p 0 :liGRl^ GRIGORI,0R1, 

°*36°DA+A "0"% , 0R2,0R2 , GR2 , GR3 , 
GR2,GR2,0: REM I „ 

**0 DATA "E''.0.BIN 00110000,BIN 
01001110,BIN 01001000,BIN 01111 
100,BIN ei001000.BIN 01001110,0: 

*15 DATA "fl",BIN 00011000,0.BIN 
r 00|11000,gR3.BIN 00111100,0R3,0 

*6® DATA "N",0,BIN 0001100®,OR* 

,OR*,OR*,OR*,BIN 00011000,0: REM 
NUL(01 
*70 RETURN 


BIN 00011000 
REM . 

BIN 01111110 
REM - 
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Spagelser pa 

motoivejen 


■ For at dette spil kan arbej- 
de hurtigt og eltektivt pd en 
Lambda datamat. er det 
skrevet helt i maskinkode. 
Kort tortalt er din opgave at 
styre din tormel-1 racer uden 
om de spagelser. der dukker 
op. Oite er spagelserne i flok. 
sd pas pd, at du ikke pludse- 
lig er omringet at dem! 

Inden programmet tastes ind. 
bruger du telgende lille Hex- 
loader: 

Ndr programmet er pd plads. 
skriver du RUN, og indtaster 
tallene i hajre kolonne tor 
maskinkoden: 

Ndr alle tal er inde, bruger du 
BREAK, skriver POKE 17303,0 
og erstatter linierne 10 til 80 
med det nye program. Des- 
uden tiltajer du linie 90 til 
110. Ndr du er tcerdig. bar dit 
program se ud som vist. 
Programmet kan ligge i en 2 
K Lambda (uden RAM-pak- 
ke). og startes med RUN.D 

Jakob Gaardsted 


1 REM.(98 punktummer) 

I0X-17307 
20 input as 
30 SCROLL 
40 PRINT X. •'-";AS 

50POKE X. 16*CODE AS+CODE AS(2)-476 

60X-X+1 

70 AS=A$(3 TO) 

80 GOTO 20+(30 AND A$< > "") 


QBRCH 5 .RND.VOO? i COS * oTEP 
KNOP THEN GOSUB . NEW 3RSN S.OClt 
M THEN F. RETURN 4 IF U9 THEN F 
ETURN COPY C= RETURN LIST SF'T - 
ETURN 

3202 RETURN 

6193 ■ 8) ■> . RNDSLRNO OOSUB BURL ^ 
PRINT Yl* LET RETURN URTN 5.RND0 

F / PLOT 0,-9 . 

10 PRINT “INOTR3T SURERHEDSORR 
O (0-30000)." 

20 INPUT 5 

30 IF 5,0 OR 6:80000 THEN GOTO 
30 

40 ROND 20001-5 _ _____ 

50 PRINT "TRYK ENTER FOR 5TRRT 

60 IF INKEY*<>CHR$ 116 THEN GC 
TO 60 

70 CLS 

60 U*U5R 17307 

90 PRINT RT 0,10,"GRME OVER" 
100 PAUSE 500 
110 RUN 







LDHL. 17245 
LDB.6 
LDB.6 
LD(HL),28 
INCHL 
DJ NZ.-5 
LD BC.17218 
LDH.64 
LDA.R 
AND A,31 
ADD A, 159 
LDL.A 
LD(HL). 15 
LDHL.( 16434) 
DECHL 
LDA.H 
CPA.O 
JRNZ.-6 
LD A,(16421) 
CP A, 255 
JRZ.20 
CP A,240 
JRC.9 
DEC BC 
LD A.(BC) 

CP A, 119 
JR NZ. 10 
INC BC 
JR 7 


215D43 

0606 

0606 

361C 

23 

10FB 

014243 

2640 

ED5F 

E61F 

C69F 

6F 

360F 

2A3240 

2B 

70 

FE00 

20FA 

3A2540 

FEFF 

2814 

FEFO 

3809 

OB 

0A 

FE76 

200A 

03 

1807 


INC BC 
LD A,(BC) 

CP A. 118 
JR NZ, 1 
DEC BC 

PUSH BC 
LDBC.692 
LDDE, 17234 
LDHL,17201 
LDDR 
POP BC 
LD A,(BC) 
PUSH AF 
LD 1.8 
LD(BC),A 
POP AF 
CP A, 15 
RETZ 

LDHL. 17250 
LD A.(HL) 

CP A. 37 
JRNZ.4 
LD (HL).28 
DECHL 
JR-10 
INC (HL) 

JR-85 
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Amclock 



PROGRAM No.1 

1 ’ Initialiser DIGI-CLOCK 

2 GOSUB 10000 

3 ’ Herfra os op til DIGI-CLOCK lisser MAIN PROGRAM 


10000 

10010 

10020 

10030 

10040 

10050 


s IF hrs <0 OR hrs> 23 THEN 10100 


IF urns<0 OR mns>59 THEN 10120 


** DIGI-CLOCK ** 

** (c) Kasper Vad ** 

** (c) d. 06-01-1985 ** 

* * .fr* * I*;***:** ***<*>4«>*: **!***:**>♦<*: *****•*<*:+:*** if;**: 

Start Procedure 
10060 MODE 2 
10070 ’ Set clock 
10030 LOCATE 2. 2:PRINT"DIGI-CLOCK" 

10090 LOCATE 2.5! PRINT "Set clock!" 

10100 LOCATE 2.8 

10110 INPUT "Input timer (0-23) “!hr« 

10120 LOCATE 2.10 

10130 INPUT "Input minutter (0-59) "imns 
10140 LOCATE 2.12 

10150 INPUT "Input sekunder (0-59) "!sec i IF sec(0 OR sec>59 THEN 10140 
10160 LOCATE 2.14! PRINT "er "5hrs?mns!sec!" korrekt J/N ?“ 

10170 kor*=INKEY*!korr*=LOWER*(kor*)! IF korr*= n " THEN 10170 
101S0 IF korr*="n" THEN 10060 
10190 CLS 

10200 ’ Interrupt kommando 
10210 EVERY 50 GOSUB 10230 
10220 ’ RETURN TO MAIN PROGRAM i RETURN 
10230 ’ Opdaterins af uret 

10240 sec=sec+l: IF sec(60 THEN RETURN ELSE sec=0 

10250 mns=mns+l! IF mns(60 THEN RETURN ELSE mns=0 

10260 hrs=hrs+H IF hrs(24 THEN RETURN ELSE hrs=0 

10270 RETURN 

PROGAM No.2 

100 LOCATE 2,2! PRINT hrs 
110 LOCATE 5,2! PRINT mns 
120 LOCATE 8,2! PRINT sec 
130 GOTO 100 


Der har olte vceret vist clock 
(ur) programmer til torskellige 
computere, men oltest er dis- 
se programmer ganske ubru- 
gelige i mere praktiske 
sammenhcenge. 

Dette lille program bmger 
Amstrads smarte interrupt 
kommando EVERY, se linie 
10210 . 

Ved opstart springer man til 
•DIGICLOCK*. hvor uret indstil- 
les. Deretter retumeres til linie 
3, hvorlra ens eget program 
kan ligge. Det er MAIN- 
PROGRAM. Under udlorelsen 
af MAIN-PROGAM springes 
der sd dn gang i sekundet til 
■DIGI-CLOCK. hvor uret sd op- 
dateres. 

Nu er det sd meningen, at 
man i .MAIN-PROGRAM* kan 
skrive pd skcermen. hvad 
klokken er. ved hjcelp af de 
tre variabler hrs (timer), mns 
(minutter) og sec (sekunder). 
til at illustrere dette har vi la- 
vet program 2. Tast program 
1 og 2 ind og kai dem samti- 
dig. 

Brugeren kan desuden tilfoje 
torskellige andre finesser til sit 
program, f.eks. en alarm 
funktion, og man kan lade et 
vindue pd skcermen vise, 
hvad klokken er. 

Veer opmeerksom pd 6n ting, 
hvis du under opdateringen 
af uret skal styre andre ting, 
f.eks. en alarm kan du fd 
problemer med tiden. Husk, 
at jo mere der skal laves un¬ 
der interruptet. jo mindre tid 
bliver der til at eksekvere 
M AIN-PROGR AMMET. 

Kasper Vad 


Programmer: 

Samtlige altrykte iistningei 
er afpravede ter otlentiig- 
garelse Forlaget betaler 
skattetrit op til 1000 kroner 
tor godkendte lceserpro- 
grammer. Forlaget har ret til 
at attrykke godkendte pro¬ 
grammer i bladet og ottent- 
liggore dem pd andre 
lagermedia. 
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■ Du er pilot i en jordisk 
kampflyver og bliver under 
en fredelig rutinetur kaldt 
over radioen: En klynge 
ukendte og uidentificerbare 
flyvende objekter ncermer sig 
Jorden i hurtig fart Udslet 
dem. 

De indtrcengende UFO'er er 
ikke helt nemme at omgds. 
F.eks. viser det sig, at de skal 
have mindst 25 tuldtrcettere, 
for de eksploderer. Forsvarslo- 
se er de heller ikke. Pas pd. 
de bider Ira sig og kan nemt 
uskadeliggore dig, hvis du 
bliver for kdd. 

Men, du har selvtolgelig fald- 
skcermen som sikkerhed El¬ 
ler har du? Man har jo tor hort 
historier om. at taldskcerme 
glemmer at tolde sig ud. 


Slap dog Dare at. I program- 
met er indbygget en sidste 
redning. Nemlig at du lander 
din kampflyver i en kcempe 
hostak Det giver ganske vist 
halmstrd i ncesen, men spa¬ 
rer dig en brddden pande. 
Du fdr 10 points, hver gang 
du rammer plet pd en UFO og 
100 points ekstra. hvis du kan 
pumpe sd meget bly i den, at 
den eksploderer. 

Kort sagt et tornojeligt spil, der 
kan hjcelpe lidt over de kede-, 
lige pauser pd kontoret eller 
derhjemme Spillet korer pd 
en IBM PC eller kompatibel. 
der har gratisk adapter ind¬ 
bygget. n 

Erik Hougaard og 
Michael Andersen 


1 ''ll H I ' ftft»ftft4ftftftft.ft-*ft**ftft-**r-*ft-ft-*-»-*»*ftft**-*ftft*#* 

JOOi ’» UFO JAGT FOR IBM PC MFD BASICA OG » 


1002 ’* URAFIK ADAPTER.SKREVET AF * 

1003 "ft ERU HOIJGAARD I JANUAR 1985 * 

1004 ’» BRUG 4 S- <.6 TIL AT FL.VTTF FLY * 

1005 ’» <S- TIL AI SKYDE MED. » 

1006 '* TRYK NUMLOCK > FOR DER TRYKKES * 

1007 "ft <RUN . * 


1008 '*»*****»»***♦*»*******»»*»*«»»»►»»*»* 

1009 KEY OF F:DIM EKS(10000):L1=5 

1010 DEF FNSZ(X,Y)=(4ftINT<(X+7)/8>*Y>/2 

1011 READ X, Y:N=FNSZ(X,Y) 

1012 DIM PLANE"/. (N) 

1013 PLANE"/. (0)=X: PLANE"/. < 1 > =Y 

1014 FOR 1=2 rci N: READ PLANE"/. ( I) : NFXT I 



PCombc 


1 015 DA f A ?;H38, S-HB, &HS555,&H5555, K-H5555. !<H5555, ?<H5555, 5-H5555 
1 016 DAI A S,HA5S5, ?<H5535, S.H5555.1-H5655, S.HD5A5, &HA956.&H5555,S-HA55A 

1017 DATA S.H5AD5, &H550A, !<H5A55. &HD5A5, ?<H2A8, S-HAAAA, &HF5AF, &HAAEA 

1018 DATA S-HFAFF. ?<HABAA, &HEAF5, !-HBF AA, ?<HAAFA, S.HF5AA, S.H5SDS, &HPSSF 

1019 DATA &H555S, ?<HD555. &H5755. ?-H55F5. 5-H5555, S/H5555,8.H5555, S-H5555 

1020 DATA *<HS5 

1021 GOSUB 1072 

1022 CLS:SCREEN 1:DFF SEG=0:P0KE 1050,PEEK(1052):COLOR 3,1 

1023 GOSUB 1050 

1024 GOSUB 1045 

1025 GOSUB 1086 

1026 CLS 

1027 LINE (10,10)-<310,180),1,BF 

1028 LOCATE 23,1:PRINT " 

1029 LOCATE 23,2:PRINT "SCORE:":SC:LOCATE 23,30:PRINT "FLY:";LI 

1030 GOSUB 1054 

1031 A®=INKEYS:IF A*="8” AND X 10 THEN X=X-5 

1032 IF A*="2" AND X<155 THEN X=X*5 

1033 IF AS=" " THEN GOSUB 1039 

1034 IF UK 13 OR W>279 THEN PUT (W,E),RO,XOR: GOSUB 1054 ELSE W-W+RET 

1035 IF W<170 AND Ul>145 AND (E=X*3 OR E=X+8> THEN GOTO 1057 

1036 PUT (160,X),PL,PSET 

1037 PUT (W,E).RO.PSET 

1038 GOTO 1031 

1039 LINE (160,X +11) — (O,X +11) 

1040 SOUND 800,.3 

1041 LINE (160,X +11) — (0,X +11),0 

1042 IF UK 160 AND E=X+3 OR UK160 AND E=X+8 THEN SC=SC+10:LOCATE 23,2:PRINT"SCORE 



:"(SC:F=F+1 


1043 IF F=25 THEN F=C:G0T0 1069 

1044 RETURN" 

1045 PUT (160,80) , PLANE"/.: LOCATE 8,17:PRINT "UFO JAGT-" 

1046 DIM DF(300>:GET(0,0)-(10,30),DF 

1047 DIM F’L (200) : GET (159, 75) — (185, 94) , PL 

1048 FOR 1=280 TO 170 STEP -1:PUT (I,80),RO,PSET:NEXT :FOR 1=100 TO 170:PUT (160 
, I) , TROOP'/., PSET: FOR C=1 TO 60: NEXT : NEXT 

1049 RETURN 

1050 LINE (140,60)—(180,120),1,BF:CIRCLE (160,100),4,2 

1051 PAINT (160,100),2,2 
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1052 DIM R0(70):GET <145,95)-(174,105),RO 

1053 CLS:RETURN 

1054 0=INT(RND*2):IF Q/2=INT(Q) THEN W=1:RET=10:W=INT <RND*100>+5 ELSE W=280-INT 
<RND*80):RET=-10 

1055 E=X+3:R=W:PUT <W,E),RO,PSET 

1056 RETURN 

1057 FOR G=0 TO 10:F0R T=0 TO 10: I = INT(RND»20>+155:D=INT<RND*20)+X:PUT(I,D>,RO.X 
OR:NEXT :NEXT 

1058 GET (100,0)-(200,199),EKS 

1059 D=INT (RND»10):IF D<5 THEN GOTO 1063 

1060 PUT (100,0) ,EKS: FOR N=X + 15 TO 170: PUT (160. N) , TROOP*/., PSET: FOR L-0 TO 20: NEX 
T :NEXT 

1061 FOR 1=0 TO 1000:NEXT 

1062 F=0:LI=L1-1:IF LI=0 THEN GOTO 1068ELSE GOTO 1026 

1063 CIRCLE (160,200),15,2:PAINT (160,198),2,2:LOCATE 23.2:PRINT "HOSTAK "SC 

HR*(26) 

1064 FOR N=X TO X+20:PUT (153, N) , LAND7., PSET: PUT ( 100,0) . EKS: FOR L-0 TO 20: NEXT : 
NEXT 

1065 FOR N=X+20 TO 170: PUT (153, N) , LAND - /., PSET: FOR L-0 TO 20: NEXT : NEXT 

1066 FOR 1=0 TO 1000:NEXT 

1067 F=0:LI=LI-1:IF LI=0 THEN GOTO 1068ELSE GOTO 1026 

1068 LOCATE 12,20:PRINT "GAME OVER.END 

1069 FOR 0=0 TO 10:F0R TY=0 TO 10:S=INT (RND*20>+W:D=INT(RND*20)+E:PUT (S.D),RO: 
NEXT :NEXT 

1070 SC=SC+100:LOCATE 23,2:PRINT "SCORE:SC:LOCATE 23.30:PRINT "FLY:";LI 

1071 GOTO 1026 

1072 READ X,Y:N=FNSZ(X,Y) 

1073 DIM TR00P7. (300) 

1074 TR00P5C (O) =X: TROOP - /. (1) =Y 

1075 FOR 1=2 TO N: READ TROOP - /. (I): NEXT I 

1076 DATA 8/H2A,S/H17,8/HO,S/HO, S/HO,8/HO, S/H80AA,8/HO 

1077 DATA S-HAOO, 8/HA8AA, S/HO, S/HAAOO, 8/HAAAA, 8/HBO, S/HAA02, S/HAAAA 

1078 DATA 8-HAO, S/HAAOA, 8/HAAAA, ?<HA8, 8/HAAOA, 5/HAAAA. 8/HA8, S'HAAOA 

1079 DATA S-HAAAA, 5/HA8, 8/H8A02, S/HA888, S/HAO, S/H8200, S/H2000, 8.H80 

1080 DATA J.HC300, &H3000, ?<HCO, &H3B00, J.H3B3F, &H0. &HFOO. S-H3C3F 

1081 DATA S/HO, &HB00, S<H380C, &H0, &HAOO, !<H8AA, S<HO. S<H0 

1082 DATA S-H2A, S/HO, S/HO, S/H2A, S/HO, S/HO, S/H2A, S/HO 

1083 DATA S/HO. 8/H22, 5/HO, S/HO, S/H22, S/HO, S/HO, S/H22 

1084 DATA S-HO, S/HO, S/H22, S/HO. S/HO, S/HO. S/HO, S/HO 

1085 RETURN 

1086 READ X,Y:N=FNSZ(X,Y) 

1087 DIM LAND - /. (300) 

1088 LAND - /. (0> =X: LAND - /. (1) =Y 

1089 FOR 1=2 TO N: READ LAND - /. (I): NEXT I 

1090 DATA S-H22.S/H17, S/HO, S-HO, S/HO, S/HO, S/HO, S/HO 

1091 DATA S/HO, S-HO, S/HO, S/HO, S/HO, S/HO, S/HO, S/HO 

1092 DATA S-HO. S/HO, 8/HO, S/HO, S/HO, S/HO. S/HO. S/HO 

1093 DATA S-HO. S/HO, S-HO, S/HO, S,HO, S/HO, S/HO, 8/HO 

1094 DATA S/HO, S/HO, S/HO, S/HCOOF, S-HO. S/H8F00, S/HC8,8/HO 

1095 DATA S-H883, 8/HO, S-HAAOO, S/HA8, S/HO, S/H800A, S/HO. S-HAOO 

1096 DATA S-H80. S/HO, S-HBOOA, S-HO, S/H800, S/H80, S/HO, S/H8008 

1097 DATA S-HO, S/H800, S/H80, S/HO 

1098 RETURN 
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Super 3-D lab 


10 POKE650,233 : P0KE532S1,7 POKE53230,5 

20 GOSUB9500 ■ Du er fai 

100 DIM fl»(22),S#<12». ... 

120 F*="B" : BX=38 : BV=23 : DII1B<BX,BV> Stor labvrin 

140 FORI-0TO22fl*a>=F*F*=F**-"B" NEXT , 

160 h*=-s nr fc =12 fm =0 svea pa p 

180 F0RI-1T08 T*=T**H$ NEXT ip,-, ur l -lip 

200 FORI-0TO8 S$<n4-Tt-T$=T#*H$*H$ NEXT 

210 F0Ri-iT08 st<i)=s*<i>*"Ti" next du. men k 

220 FORX-0TOBX8<X,0>=1 B(X,BV>=1 NEXT _ 

240 F0RV*2T0BV-1STEP2 dig lOmUltl! 

HI ^v?I? BX_1STEP2 Du vll forst: 

||0 next en grundig 

340 forv- 0 tobv:b< 0 ,vj«i b<bx,v>*i next efter du er c 

380 forx«itobx-i Men det gc 

400 1FRND<0». 80 THEN B<X,V>=1 

440 NEXT ,_ . 

460 NEXT 

470 UX«INT<RND<0>*<BX-imi X=INT<RND<0)*<BX-imi I ^BlO 

471 IFUX/2* I NT < UX/2)0RX/2« I NT (X/2) THEN470 

473 B<UX,0> —1 Y-BV-1 B<X,Y)»INT<RND<0)*4)*2 B«JX. 1>=0 B<X,Y-1>*0 f) 

380 Z*="P" 'TX-0 ; TV-0 : OOTOl 128 

1100 OETZ* : TX-0 : TV-0 I 

>120 IF Z*-""THEN 1100 I 

1123' IFZ*<>" "ANDZ*O"H"ANDZ*O"V"RNDZ*O"L ,, RNDZ*O"P ,, THEN1100 L 

1127 IF Z*-"L"THENGOSUB9000 0OTO1100 c 

1128 IFZ*-"P"TH£NPRINT"T' : OOTO2000 
1130 IFZ*-" "RNDB<X,Y1-2THENTX-0 TV—1 GOTO1220 
1160 IFZ»-" "HNDB<X,V>-3THENTX-1 TV-0 GOTO1220 
1180 IFZ*-" "ANDB«X,V)-4THENTY-1 TX-0 GOTO1220 
1200 IFZ*-" "RNDB<X.Y1-3THENTX--1 : TY-0 

1220 IFB<X*TX,V*TY>»1THEN1100 
1230 PRINT”!#' 

1240 IFZ*-" "THENB<X*TX,Y*TV>-B<X,V> B<X,Y>-0 X-X*TX Y-V*TVGOTO2000 
1230 REM 

1260 IFZ*-"H"ANDB<X,V>03THENB<X,V>-B<X,Y>»1 GOTO2000 
1280 IFZ*-"H"ANDB<X,V>-3THENB<X,Y>*2 GOTO2000 
1290 REM 

1300 IFZ*-"V"RNDB<X,V>02THENB<X,Y>-B<X,V>-1 GOTO2000 
1320 B<X,V>-3 

2000 IFB<X,Y>-2THENOOSUB7200GOTO2100 
2020 IFB < X/V > > 3THENOOSUB7300 G0T02100 
2040 IFB < X, V ) -4THENGOSUB7400 : GOT02100 
2060 OOSUB7300 

2080 REM ******************** 

2100 IFB < X+X1, Y+V1> 90THENQF-0*G0T02130 
2120 QF-1 

2130 N1-0-N2-0 N3-1 N4-1 Hl-3 H2-4 H3-3 H4-6 Sl-8 S2=8 S3-7 S4-7 OOSUB800© 

2220 IFB<X*X2,V*V2»0THENQF=Q GOTO2230 
2240 ClF-1 

2230 Nl-0 N2-0 N3-1 N4-1 Hl-36 H2-33 H3-34 H4-33 Sl=8 S2-8 S3-7 S4=7 GOSUB9380 
2320 IFB<X+FX,V*FV>»1THEN300O 
2330 IFB< X+FX,V+FV >=-1THEN8300 
2340 REM ******************** 

2360 IFB < X+X3.V+V3)>0THENQF=O OOTO2390 
2380 QF=1 

2390 N1«2:N2-2:N3-3•N4-3 H1-7 H2-8 H3-9 H4*1 1 31-6 S2-6 S3-3 34=3 GOSUB8000 
2460 IF8<X*X4,V*V4»0THENQF-0 GOTO2490 
2480 QF-1 

2490 N1*2 : N2-2■N3-3 : N4-3 *H1 *32 H2-31 H3-30 H4-29 Sl-6 S2-6 S3-3-S4-3 GOSUB9300 
2360 IFB(X*FX*2,V*FV*21-1THEN6000 
2370 1FB<X+FX*2. Y*FV*2> —1THEN8400 
2380 REM ******************** 

2680 REM ****************** 

2700 IFB<X*X3,Y*V3»0THENQF=0 00T02730 
2720 QF-1 

2730 N1=4 N2-4:N3-3 N4-5 HI=11 H2-12 H3-13 H4=14 S1=4 32=4 S3=3 34=3 GOSUB3000 
2800 IFB<X*X6,V*V6»0THENQF=0:OOTO2830 
2820 QF-1 

2830 Nl-4 : N2-4 N3=3 N4-3H1=28 H2-27 H3-26■H4-23 Sl=4 S2*4 S3-3 S4=3 GOSUB9300 

2883 IFB<X+FX*3,V*FY*3)=1THEN7000 

2887 IFB<X+FX*3,V*FV*3>—1THEN3300 

2890 REM ****************** HUSK 

2900 IFB<X+X7,V+V7)>0THENQF=0 : GOTO2930 

2920 QF-1 

2930 Nl-6 : N2-6 N3-7 : N4«7 : Hl=13H2*16'H3-17 : H4-18 : Sl-2 S2=2 ; S3“1 S4-1 GOSUB8000 
3000 IFB<X*X8,V+V8»0THENGF=0:G0TO3030 
3020 QF=1 

3030 N1 -6 : N2-6 : N3=7 : N4-7 : H1 =24 : H2*23 : H3-22 H4-21 SI-2 S2-2 S3-1 34=1 GOSUB930O 
3100 IFBCX+FX*4,V*FV*4)—1THEN8200 

3885 IFB<X*FX*4-V+FV*4 > «1THENPQKE646,FM i —■ 

3890 IFB<X*FX*4,Y*FY*4>=0THENPOKE646,FO ■ 

4000 printr»<8>;trb<i9>,s*<0> 

4020 printr*<8>;trb(201;s*<0> COMMO H 

4040 GOTO1100 DORE LlJ 

5000 PQKE646.FM ** Q 

3020 F0RI-7T032 I b 

5040 PRINTR*<2)iTRB<I>;S*<6> H 

3060 NEXT 3 

3080 GOTO 1100 
6000 P0KE646.FM 
6020 FGRI-11T028 
6040 printr*<4);trb':i);s*<4) 

6060 NEXT 
6080 GOTO 1100 
7000 P0KE646.FM 
7028 F0RI-13T024 
7040 printr*(6);trb<i>;s*<2> 

7060 NEXT 
7080 GOTO 1100 

7200 X1--1■Vl-0 : X2-1*V2=0 : FX=0 : FY--1 : X3--1 : V3= — 1 X4=l : Y4——1 
7210 X3—1 • V3—2 X6-1 V6—2 ■ X7—1: V7—3 X8-1 V8—3: RETURN 
7300 X1 =0 : VI—1: X2-0 : V2-1 : FX-1: FV-0: X3-1 • V3— 1 ■ X4-1 V4=l 
7310 X3=2 : V3—1•X6-2 V6-1 : X7-3 : V7=-l:X3=3 V8-1 : RETURN 
7400 XI=1: Vl-0: X2--1 • V2-0' FX=0 FV=l:X3=l V3-1 X4=-l V4=l 
7410 X5-1 ■ V3-2 : X6— 1 : V6-2: X7= 1 • V7=3 - X8— 1 •• V8-3 ■ RETURN 
7300 X1=0 Vl-1 X2-0 : V2 =-i : FX— 1: FV=0 X3— 1 -V3=l : X4— 1 V4=-l 
7310 X5—2: V3* 1 ■ X6--2 : V6— 1 • X7--3 V7=l: X8—3 ‘V3=-l RETURN 


■ Du er fanget i en kcempe- 
stor labyrint. Du har allerede 
sved pd panden. Kommer 
jeg ud eller hvad??? Det gar 
du. men kun hvis du bcerer 
dig fomuftigi ad. 

Du vil iprst i dette program fd 
en grundig instruktion. hvor- 
efter du er overladt til dig selv. 
Men det gdr altsammen, hvis 


du bare ikke kikker ior man¬ 
ge gange pd det oversigts- 
kort. du skal anvende lor at 
linde udgangen. 

EXi korer Irem med spacebar, 
til venstre med V og til hojre 
med H. Ved drejning stdr du 
pd samme sted. Du kan se 
landkort ved et tryk pd L.D 
Nils Lauslen 




8000 REM 

8010 IFQF-1THENF<0) = 11 F<1>=12 F<2> = 13 F'3) = l GOTO8030 
3020 F<0>=0 F<1)=2 F<2>=0 F<3>=2 
8030 POKE646.F<0) 

8040 PRINTR»<N1),TRB<H1>,S*<S1> 

8050 P0KE646,F<1> 

8060 PR INTR* (N2 >, TRB < H2). S* ( S2 > 

8063 PRINTTRB<H2>;“r" 

8063 PRINTR*(N2);TRB<H2»;"a*" 

3070 P0KE646.F<2> 

3080 PR I NTR* ( N3 ); TRB ( H3, S* < S3 > 

8883 P0KE646,F<3> 

8090 PRINTR*<N4),TRB<H4),S*<S4)‘ 

8093 PRINTTRB<H4>; ~r" 

8093 PRINTfi*'N4>;TflB<H4>;"SP" 

8100 RETURN 

8200 P0KE646.FG PRINTfi*<8>,TflB<19>; " 

3220 PRINTR*<13);TRB(19);"—" 

8240 GOTO 1100 

8300 PRINTR*(6>.TRB<13>i”-” 

8320 PRINTR*<17),TRB<13>;"-" 

3340 GOTO1108 

3400 PRINTR*<4> ■ TRB( 11 >i “-“ 

3420 PRINTR*b9);TRB<l 1 >; ”-" 

3440 GOTO1100 

8300 PRINTR*(2>,TRB<7>;"-“ 

8320 PRINTR*(21),TRB<7>;"-■ 

3340 PRINTR*<10),TRB<13);"DU KLRREDE DET >!!" 

8545 PRINTR*<1),TRB017>,"UDGRNO" 

8330 P0KE646,INT<RND<0)*16> : GOTO8300 

8360 END 

90O0 PR I NT" *1" 

9010 FORQV-0TOBV 
9020 F0RQX-8T0BX 

9040 IFB<QX,QV>«1THENPRINT"» "; GOTO9120 

9060 IFB<QX.QV)-0THENPRINT"B ",:GOTO9120 

9080 IFB<QX,QV>—1THENPRINT"! ";:QOTO9120 

9100 IFB<QX,QV»1THENPRINT"B»T, 'GOTO9120 

9120 NEXT 

9140 PRINT 

9160 NEXT 

9130 RETURN 

9308 REM 

9310 IFQF-1THENF<0>-11 F<1>=12 F<2)»13 : F<3>=1 00T09330 

9320 F<0>-0 F(l>-2 F(2)«0 F<3)=2 
9330 POKE646,F<0> 

9340 PRINTR*CN1>,TRB<H1);S*<S1> 

9330 POKE646,F(1> 

9360 PRINTR*<N2),TRB<H2),S*CS2) 

9363 PRINTTRB<H2>,'"'" 

9365 PRINTR*<N2>,TRB<H2>;"jr" 

9370 P0KE646,F<2> 

9330 PRINTR*<N3>,TRB<H3);S*<S3> 

9383 POKE646,F<3> 1 

9390 PRINTR*(N4>,TRB(H4);S*<S4) 

9393 PRINTTRB<H4>, "■*" 

9393 PPINTR*(N4),TRB(H4); "ST" 

9400 RETURN 

9500 PRINT"^* DETTE PROGRRM ER LRVET RF 
3310 PRINT"3 3IIEI.S LRUSTENB" 

9320 PRINT" 31.H.MUNDTSVEJ 18S" 

9330 PRINT” 32830 VIRIJMB" 

9330 PRINT"«DU SKRL FINDE UDGRNGEN I LRBVRINTEN." 

9360 PRINT"DET ER KUN MULIGT HT SE 5 SKRIDT FREM" 

9370 PRINT"FOR SIG I DEN GANG MRN NETOR BEFINDEP" 

9380 PRINT-SIC I.B" 

9590 PRINT"SHRDRN BEVREGER DU DIG B" 

9600 PRINT"STTRYK'SPACE',SRR* GARR DU FREMflD" 

9605 PRINT"HVIS DER IKKE ER EN MUR." 

9610 PRINT"3TRST'H'',SfiR DREJER DU DIG TIL HOEJRe," 

9620 PRINT"MEN 3BLIVER STRRSNDE PflB’SRMME STED." 

9630 PRINT"-,ITRST'V',SRR DRPJER DU HIO TIL VENSTRE;" 

9640 PRINT"MEN 3BLIVER STRRENDE PAR ’SRMME STED." 

9650 PRINT"■HVIS DU TASTER 'L'.BLIVER LRBVRINTEN" 

9660 PRINT"SKREVET UD PAR SKRERMEN." 

9670 PRINT"IHVIS DU TRSTER’P',BLIVER DU STRRENDE" 

9680 PRINT"HVOR DU STRRR.BRUGES HVIS DU HRR" 

9690 PRINT"'SNVDT' VSt AT Se LRBVRINTEN.<'L’>" 

9700 PRINT"5HDER HVOR MLIREN ER LVS.ER DER GENNEMGRNG" 
9999 RETURN 


9500 PRINT"m 
3310 PRINT-3 
9320 PRINT" 
9330 PRINT" 
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Fort Apache 


■ Fort Apache er en compu- 
ter version at en at de kendte 

smb lommespil, hvor du har- 

kontrol over broen til din 
borg. Den skal slbs op og 
ned. Op, ndr det er tjender el- 
ler venner, der ankommer, 

Spillet er selvlorklarende og / 

delt op i to. Indtast del et og 
lceg den pd bind. Indtast 
derncBst del to. J 

Etter indlcesning at del et tra J i 
bind skal du vente ca. 3 mi- ( l) 
nutter pd, at skcermen slettes wjm 
og andre vcesentlige ting 
klargores.D / ^ 

Michael Lauiidsen 


230 FORH-33000TO33235 8"INT < RND <1>*25 ) 

231 IFB-0THENPOKEfi,38 

232 I FB“ 1THENPOKER,40 

233 IFB>1THENPOKER,32 
253 NEXT 

300 INPUT"IGVRERHEDSGRflD 1-100"; P: 1FPM00THEN300 
400 FORR-49152TO49230 RERDS POKER,S NEXT 
410 DRTH162-30-189-32-7,137,33,7,202,224, 0,208,243 

413 DRTR173,211,5,141,212,5 

416 DHTR173,251-5-141,211,5 

417 DRTR173, 33,6,141,231,3 

418 DRTH173, 73,6,141, 33,6 

419 DRTR173,113-6.141, 73,6 

420 DRTR173-'135<6,141,113,6 

421 DHTR173,193,6,141,135,6 

422 DRTR173,233,6,141,193,6 

423 DRTR173, 19,7,141,233,6 

424 DRTR173,143,7,141,183,7 
423 DRTR169,32,141,143,7,96 

998 P0KE34296,13 : P0KE34277,190:P0KE34278,248•P0KE54276,33 

999 PRINT'S". PO-0 PRINT"** 

1000 FORR-1T0233 POKE 1827,PEEK<30000+R>:POKE 1811,PEEKC35000+fl)•SVS49152 

1009 POKE1493,32 

1010 IFPEEK < 56321><240THENPOKE1493,31 

1011 IFPEEKC56321)”251THENPOKE1893,99 

1012 IFPEEKC56321)-247THENP0KE1893,32 ___ 

1020 IFPEEKC1492)“38THEN10000 f IM 

1021 IFPEEKC1492) -40THEN10100 _ „ 

1022 IFPEEKC1835)”35THEN10200 

1023 IFPEEK< 1833)”37THEN10300 DORt B 

1030 FORT-0TOP : NEXT 64 

1060 FORM-1TO10 P0KE34273.U NEXT |®| 

1100 NEXT GOTO 1000 

10000 IFPEEK C1493 >”31THEN20000 ■ 

10010 IFPEEIJC 1493>”32THEN21000 I — . ' — W 

10100 IFPEEK<1493)-31THEN21000 !/V t WW l'’ @ I 

10110 IFPEEKC 1493)“32THEN20000 I TOHMSaW H ■ 

10200 IFPEEK<1893)=99THEN21000 I 1 —-' ■ - 11 

10210 IFPEEKC1893)-32THEN20000 .. ——1 

10300 IFPEEKC1893)”99THEN20000 ^ 

10310 IFPEEKC1895)-32THEN21000 

20000 PO«PO*10 

20100 PRINT" WCfl SCORE "IPO 

20150 IFPEEK C1855)“35THENP0KE1853.32 POKE1935,35 
20200 GOTO1100 
21000 LI*LI : +1 

21125 PRINT"ftCOBWIIIWIWI3" , TRBC28+LI83)",11 US'" 

21130 PRINT-BHOOTOiaiBlOTO "; TRBC28+LI*3) i "lil I" 

21150 IFLI=3THEN30000 
21200 GOTO1100 

30000 print-grme over" 

30010 FORR=0TO15 ; SVS49152 : NEXT 
30050 LI=0 PO=0 PRINT' 

30060 PRINT "(WSMlMimiOIBW " TRBC28)i " 

30061 PRiNT'ainmrainraiuHB"; trbc28); " 

30090 FORfl=0TO255:P0KE54273,fl:NEXT 

30098 IFPEEKC56321><>239THEN30090 

30099 PRINT"WWIIIWW W «I I WW>MlliaiW 

30100 INPUT”MSVRERHEDSGRRD 1-100",P:IFP>100THEN30100 

30101 GOTO 998 


1 F0RJ”0T08047 

2 P0KE36333,1271 POKE 1,31 

3 X-PEEKC3324B»J) 

4 POKE 1,331P0KE56333,129 
3 POKE14336+J,X 

6 1CXT 

10 FORA-OTOH9IREAOSIPOKEC 14336*A»8»33>,Sl KEXT 

100 DATA3,4,12,24,36,124,233,233 

110 DATA30,24,24,16,62,88,20,18 

120 DATA30,24,24,16,124,26,40,72 

130 DATA 0,24,24,16,82,88,20,18 

140 DATA 0,24,24,18,124,26,40,72 

130 0ATA30,12,12,8,13,12,3,0 

160 DATA30,12,12,9,14,12,2,1 

170 DATA 0,12,12,8,13,12,3,0 

180 DATA 0,12,12,9,14,12,2,1 

190 DATA234,248,232,200,233,136,136,8 

200 DATA 127,31,23,19,233,17,17,16 

210 0ATA6,8,8,8,233,9,8,8 

220 DATA16,16,16,16,233,16,16,16 

221 OATAO,0,0,0,0,0,0,0 

222 DATA192,48,204,46,192,0,0,0 

300 PRINT'i^PILLET GAAR UO PAA AT BESKYTTE EN BORO* 
310 PRINT'FOR FJENDERC XEO HJELM). NAAR OER KOXTER’ 
320 PRINT'EN FJEMJE SAA MAA DU IKKE AABXC PORTEN* 

330 PR1NTXCN NAAR OER KOMXER EN UOEN HJELM SAA* 

340 PR INT*SKAL DU AABXC PORTEN. 

330 PRINT'HVIS EN SOLDAT KRAVLER OP AO REBET SAA* 

360 PR I NT "SKAL DU ORAEBE HAM XEO ET SPYOCFIRE)* 

370 PRINT'MEN KUN HVIS HAN HAR HJEM PAA* 

380 PR I NT I PR INTIPRINT'CONTROL I PORT 1* 

390 PR I NT I PR I NT* AABEN PORTC->LUKKE PORT' 

393 F0RQ-OTO1OIGETA8IXEXT 

400 GETA8IIFA8-*‘THEN400 

410 PRINTNAAR CURSER SES TASTES <LOAD>* 

REAOY. 
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0010 // Copyright (c> by Lars Christensen, Hillerod. 

0020 PRINT CHR*(12> ;TAB(26) : "E L I Z 0" 

0030 PRINT 
0040 PRINT 
0050 PRINT 

0060 // Initialiserino 
0070 nls=36; n2:=14; n3:=112 

0080 DIM s(nl),r(nl),n(nl),i* OF 80, k* OF 20,c* OF 80,f* OF 80, rs* OF 20 
0030 DIM ss* OF 20,p* OF 80,keyword*(nl) OF 20,reoly*<n3> OF 80 
0100 PRINT "a moment, please. She’s coming soon" 

0110 RESTORE numerical 
0120 FOR x : = 1 TO nl DO 
0130 READ s (x), 1 

0140 r(x):=s<x>; n<x>:=s(x)*1-1 ~rt 

0150 NEXT x 

0160 RESTORE keyworOs 

0170 FOR x! = l TO nl DO READ keyword* (x) PICCOLO Ml 

0180 RESTORE reolyes gl 

0190 FOR x:=l TO n3 DO READ reoly*(x) ®l 

0200 PRINT "hi! i’.m Eliza, what’s your problem ? “ ' 

0210 // User input section 
0220 REPEAT 
0230 INPUT i* 

0240 i *! = ” "+i*»" " 

0250 IF “shut" IN i* THEN 

0260 PRINT "ok, i give up, goodbye." 

0270 END 

0280 ENDIF 

0290 WHILE IN i* DO ooss="’" IN i*; i*:=i*(1spos-1)+i*<pos+1:LEN(i*>) 

0300 IF i*=p* THEN 

0310 PRINT "please don’t reoeat yourself!" 

0320 o*I-"**************************" 

0330 ELSE 

0340 // find keyword in i* 

0350 sli-0 

0360 FOR kli-1 TO nl DO 

0370 IF keyword*(kl) IN i* THEN sls-kl; kl:=nl 

0380 NEXT kl 

0390 IF si(=0 THEN 

0400 si!=36 

0410 ELSE 

0420 RESTORE oronouns 

0430 

0440 c*: = “ "+i*(<keyword*(sl> IN i*>♦LEN(keyword* <sl))!LEN <i*> > +“ " 

0450 FOR x!*1 TO n2/2 DO 

0460 READ sst,rs* 

0470 WHILE ss* IN c* DO pos!=ss* IN c*; c*:=c*(1!pos-1>+rs*+c*(oos+LEN(s 


s*)!LEN(c*> > 


0480 WHILE rs* IN c* DO posi=rs* IN c*; c*:=c*(1tpos-1)*ss*tc*(pos*LEN(r 

s*) s LEN (c*) > 

0490 NEXT x 

0500 IF c*(2!2>=" " THEN c*:=c*(2!LEN(c*)) 

0510 WHILE "!" IN c* DO pos:="!" IN c»; c*s =c* (1:oos-1)*c*(pos+1:LEN(c«)> 

0520 ENDIF 

0530 IF reply*(r(sl))(LEN(reply*(r(si)))I)(>THEN 
0540 PRINT reply*(r(si)) 

0550 ELSE 

0560 PRINT reply*(r(sl>)(1!LEN(reply*(r(si)))-1>;c* 

0570 ENDIF 

0580 p*i=i«; r(sl)i=r(sl)+l 

0590 IF r(sl))n(sl) THEN r(sl)!=s(sl> 

0600 ENDIF 

0610 UNTIL FALSE , 

0620 keywords: U 

0630 DATA "can you","can i","you are", "youre","i dont",”i feel" 

0640 DATA "why dont you", "why cant i", "are you", "i cant","i am"," im " 

0650 DATA "you ","i want ", "what", "how","who","where”,"when","why“ 

0660 DATA "name", "cause", "sorry", "oresm", "hello", “hi ", "maybe" 

0670 DATA " no","your”,"always","think", "alike","yes”,"friend" 

0680 DATA "computer", "nokeyfound" 

0690 pronouns: 

0700 DATA " are " am ”, "were "."was “ you ", 11 i ", "your ", "my " 

0710 DATA " ive ", " youve "," im ", " youre " 

0720 // data " me ", " you " 

0730 replyes! 

0740 DATA "don’t you belive that i can*" 

0750 DATA "oerhaos you would like to be able to*" 

0760 DATA "you want me to be able to*" 

0770 DATA "perhaps you don’t want to*" 

0780 DATA "do you want to be able to*" 

0790 DATA "what makes you think i am*” 

0800 DATA "does it please you to belive i am*" 

0810 DATA "oerhaos you would like to be*" 

0820 DATA "do you sometimes wish you were*" 

0830 DATA "don’t you really*" 

0840 DATA "why don’t you*" 

0850 DATA "do you wish to be able to*" 

0860 DATA "does that trouble you?" / 

0870 DATA "tell me more about such feelings." / 

0880 DATA "do you often feel*" / 

0890 DATA "do you enjoy feeling*" M 

0900 DATA "do you really belive i don’t*" 7 

0910 DATA "perhaps in good time i will*" 

0920 DATA "do you want me to*" fil 

0930 DATA "do you think you should be able to*" / 

0940 DATA "why can’t you*" I 

0950 DATA "why are you interested in whether or not, i am*” / 


Eliza 


■ Er du trcet at altid at se din 
computer meddele 'SYNTAX 
fejr og 'Variabel ikke erklce- 
ret'? Sd tast dette program ind 
og RUN det. Du vil sd blive 
prcesenteret tor psykoanalyti- 
keren Eliza. 

Med hende kan du tore en 
samtale, godt nok pd en- 
gelsk. men alligevel noget 
mere intelligent end sced- 
vanligt. 

Eliza vil analysere det. du 
skriver, og iorsoge at reagere 
sd tornuttigt som muligt pd 
det. Selve teorien og ideen 
bag det hele stammer Ira 
amerikaneren og psykoana- 
lytikeren Carl Rogers. 
Prcesenter dette program tor 
alle. der plejer at bande over 
deres computer, og tor alle 
der ikke har provet en com¬ 
puter tor. Det vil helt sikkert 
gore lykkelD 

Lars Christensen 






■ HCT 

Hans Chi Thays*n 
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0960 DflTft "would you orefere if i were not*” 

0970 DATA "pernaps in youp fantasies i am*" 

0980 DATA "how do you know you can’t*" 

0990 DATA "have you triec?" 

1000 DATA "oerhaos you can now*" 

1010 DATA "did you come to me because you are*" 

1020 DATA "how lono have you been*" 

1030 DATA "do you belive it is normal to be*" 

1040 DATA "do you enjoy beeing*" 

1050 DATA "we were discussina you— not me. " 

1060 DATA “oh, i*" 

1070 DATA "you’re not really talking about me, are you?" 
1080 DATA "what would it mean to you if you got*" 

1090 DATA "why do you want*" 

1100 DATA "suppose you soon got*" 

1110 DATA "what if you never got*" 

1120 DATA "i sometiir.es also want*" 

1130 DATA "why do you ask?" 

1140 DATA "does that question interest you?" 

1150 DATA "what answer would please you the most?" 

1160 DATA "what do you think?" 

1170 DATA "are such questions on your mind often?" 

1180 DATA "what is it that you really want to know?" 

1190 DATA "have you asked anyone else?" 

1200 DATA "have you asked such questions before?" 

1210 DATA "what else comes to mind when you ask that?" 
1220 DATA "names don’t interest me." 

1230 DATA "i don’t care about names— olease go on." 

1240 DATA "is that the real reason?" 

1250 DATA "don’t any other reason come to mind?" 

1260 DATA "does that reason explain anything else'’" 

1270 DATA "what other reasons might there be?" 

1280 DATA "olease don’t apologize!" 

1290 DATA "apologies are not necessary." 

1300 DATA "what feelings do you have when you aoologize 
1310 DATA "don’t be so defensive!" 

1320 DATA "what does that dream suggest to you?" 

1330 DATA "do you dream often?" 

1340 DATA "what persons appear in your dreams?" 

1350 DATA "are you disturbed by your dreams?" 

1360 DATA "how do you do .. . olease state your problem. 
1370 DATA "you don’t seem quite certain." 

1380 DATA "why the uncertain tone?" 

1390 DATA "can’t you be more oositive?" 

1400 DATA "you aren’t sure?” 

1410 DATA "don’t you know?" 

1420 DATA "are you saying no just to be negative?" 

1430 DATA "you are being a bit negative." 

1440 DATA "why not?" 

1450 DATA "are you sure?" 

1460 DATA "why no?" 

1470 DATA "why are you concerned about my*" 

1480 DATA "what about your own*" 

1490 DATA "can you think of a soecific example?" 

1500 DATA "when?" 

1510 DATA "what are you thinking of?" 

1520 DATA "really always?" 

1530 DATA "do you really think so?" 

1540 DATA "but you are not sure you*" 

1550 DATA "do you doubt you*” 

1560 DATA "in what way?" 

1570 DATA "what resemblance do you see?" 

1580 DATA "what does the similarity suggest to you?” 

1590 DATA "what other connections do you see?" 

1600 DATA "could there really be some connection?" 

1610 DATA "how?" 

1620 DATA "you seem quite oositive." 

1630 DATA "are you sure?" 

1640 DATA "i see.” 

1650 DATA "i understand." 

1660 DATA "why do you bring up the topic of friends?" 
1670 DATA "do your friends worry you?” 

1680 DATA "do your friends pick on you?” 

1690 DATA "are you sure you have any friends?” 

1700 DATA "do you impose on your friens?" 

1710 DATA "perhaps your love for frinds worries you." 
1720 DATA "do computers worry you?" 

1730 DATA "are you talking about me in particular?" 

1740 DATA "are you frightened by machines?" 

1750 DATA "why do you mention computers?" 

1760 DATA "what do you think machines have problem?" 

1770 DATA "don’t you think computers can help people?” 
1780 DATA "what is it about machines that worries you?" 
1790 DATA "say, do you have any psychological problems’ 1 
1800 DATA "what does that suggest to you?" 

1810 DATA "i see." 

1820 DATA "i’m not sure i understand you fully." 

1830 DATA "come come elucidate your thoughts. “ 

1840 DATA "can you elaborate on that?" 

1850 DATA "that is quite interesting." 

1 860 nume rica1: 

1870 DATA 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3 
1880 DATA 28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40.9 
1890 DATA 49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4 
1900 DATA 80.3,83,7,90,3,93,6,99,7,106,6 
1910 END 


Drceberne i 
drivhuset 


■ Troede du. at havearbejde 
var noget at det mest fredfyld- 
te og idylliske, man kan fore- 
tage sig. kan du roligt tro om 
igen. 

Vores ellers sb fredelige gart- 
ner kommei nemlig ud tor de 
vcerste oplevelser. da han 
bliver hyret til at luge ud i et 
celdre misligholdt drivhus hos 
en lige sb mystisk eneboer. 


Du mader edderkoppei, der 
lirer sig ned fra loftet, og som 
kun kan udryddes med gift. 
Edderkoppeme mb under in¬ 
gen omstcendigheder nb ned 
til planterne. De kan nemlig 
ikke tble den gift, som insek- 
terne sprajter omkring sig. 
Programmet er selvtorklaren- 
de.D 

Christian Bamler. 


4 BORDER 4 1 LET h-100: LET x4-*Co»eutdrdn" __ 

3 INK 0 2 LET —.3 ]■ 

6 ROPER 7 3 LET t*-*000000000" 

7 BRIGHT 0 yiv 

8 OVER 0 TkUM J 

9 IHVERSE 01 CLS I LET .-3« >£T —0 ft 

10 DIH 4<6> 

11 FOR i-l TO 6 

12 LET «<.»! 

II NEXT . 

14 LET «-0 

15 LET fc-13 

16 LET c-19 

17 LET d-b 

18 GO SUB 3999 

20 PRINT 0T 21.01 INK 4: EEcEEEEEEEEEEEEEEEEEEEEEEEEEEEEE- 
:: FOR n--7 TO 7 

22 PRINT 0T 20.01 INK 0BS K t m FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF m 
2Z BEEP . 1. (0BS r»» • 7s NEXT n 

24 PRINT 0T 20.01 INK 2t “FFFFF c FFFFFFFFFFFFFFFFFFFFFFFFFF m 
SO PRINT 0T 6.01 INK 61'__....___" 

99 GO SUB 9999 

100 REM OOOQOQQOQOOOOQOO 0 >«)n I 

10! PRINT 0T 20.61 INK 21 "P- 

102 LET b-b*( i !NKEV*-"8" OR IN 31»1 OR IN 31-17) 0ND b<>30>-(<INKEY4-"3" OR IN 
31-2 OR IN 31-18) 0ND bOO) 

103 PRINT AT 20.bl’A" 

106 PRINT 0T c.d I ” " 

107 IE »-0 THEN LET d-b 

108 IE (d*6)/6-INT < <d*6 >/6’ 0ND <C-J)<4<»d*6>/6) THEN 00 TO 3300 

109 IE «-l THEN LET c-C-1 

110 IE <(1N 31)IS AND IN 31<24) OR |NKEY4-"0"> AND 4-0 THEN LET «-l 

120 IE (0 19 THEN PRINT AT c.dl INK 3l“8" ---- 

130 IE c <8 THEN PRINT AT e.dl" "l LET 4-0: LET <-19 f\ ) 

140 LET .-INT (RND*6>♦ I V 

142 BEEP . 003. ■ 01 _ V CD) 

143 PRINT AT «<*). <(k-l)*6>l INK 4I"C" 

144 LET Ml k >-«<*>♦** ' X|\\ A A § V 

145 PRINT AT • (■>. <<*-l)-6)l INK 2t "D" - /) 1 

ISO IE 4< ■)) -20.3 THEN GO TO 1000 ( ■BxflPK 

300 GO TO 100 —. V / 

1000 RCn DDDDDDDDDDD /AJL MB D1 /3 D 

ODD DDDDDDDDDDD M i " 

1002 FOR • TO 30 

1003 PRINT AT 21.6-<»-6>l INK 41 "E" IV | 

1004 BEEP .001.33 

1003 PRINT AT 21.6-<«-6>I INK 2l "D" O 

1006 BEEP .001.30 

1007 NEXT . 

1008 BEEP 1. -201 BEEP I.-20I BEEP . 1. -20i BEEP 1.-201 BEEP .9.-171 BEEP .1.-181 
BEEP .7.-181 BEEP .1.-20) BEEP .3. -20« BEEP .4.-21 > BEEP 2.-20 

1 125 IF lOO THEN GO TO 1170 

1130 PRINT AT 10.I0I-0AHE OVER*) IF •>-h THEN PRINT "Skrtv d.t navni"! LET h-et 
PRINT •••Du lio« rdkorddn-l GO SUB 3000 

1140 IF INKEVBO-O- AND IN 310 16 THEN PRINT AT 2.0t FLASH II"TRYK PA mkyd fo 
r *t i*yt ip i i*i PRINT AT 20.01x41" Mar Rbkorddrt »*d "lh« GO TO 1140 

1130 LET 1-3 

1131 LET o-O 

1132 BEEP 1.69 

1133 00 TO 2 

1 160 GO SUB 9999 

1170 IF lOO THEN PRINT AT 10. 3t"Tryk omm »krd" 

1180 IF INKEV4O"0" OR IN 31-0 THEN GO TO 1070 
1 199 CLS 
1200 GO TO 10 

2000 PAPER 61 REH FFFFFFFFFF j FlU A 

FEKSTRAF FFFFFFFFFF 4/ 1 Ifl- \ ■ 

2001 FLASH 1 l/A ' 

2002 INK 2 \ \ ■—— ' 

2004 FOR »-0 TO 21 --—--- 84^1^_' 

2003 BEEP .01.n \ \ \ >7 VBhI/# Jfti 

2006 PRINT AT n. nt "EKSTRA" \ 7 N 

2008 NEXT n \ \ J*/i flHl 

2010 FOR n-22 TO 1 STEP -1 V/\* / trU 

2011 PRINT AT (b-22). nl "EKSTRA" .-\ ¥ U ' ZA • 

2012 BEEP .01.R \ I / f \ f Jf 

2013 NEXT n jXi /- , \ 

2020 FOR n-0 TO 21 , X / /- / 

2021 PRINT AT n. 111 "EKSTRA" 

2022 BEEP . 01. (n*20) / —__ / 

2023 NEXT r. 

2030 PRINT AT 10. Ol"EKSTRAEKSTRAEKSTRAEKSTRAEKSTRA": BEEP .1.10 

2031 PRINT AT 1I.0)"EKSTRAEKSTRAEKSTRAEKSTRAEKSTRA": BEEP .1.20 

2035 PAPER 7 

2036 INK 0 

2037 FLASH 0 

2040 LET i-l*l 

2041 GO SUB 9999 

2042 FOR n-1 TO 100 

2043 PRINT AT (RND-20).(RND-26)I PAPER (RND*7)i BRIGHT 11 INK 9l"EKSTRA" 

2044 BEEP . 01. 1 

2045 BEEP .01.2 

2046 NEXT n 

2047 GO TO 1020 

3000 SAVE "Bio-ster" LINE 9800: REM •«»* proira 

madi dmm omm no v»d Mt BREAKE o* skr.v* RUN 3000 


2 % 

—0 TO 21 \— . 

P .01.n \ 

NT AT n.nI"EKSTRA" \ 
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3001 GO TO 3000 

3500 REM BBBBBBBBBBBBBB f \ Bb.ii 

• ramtB BBBBBBBBBBBBBB 

3501 PRINT AT (c-l).dl INK A*"C" x / >|Uf 

3502 LET a< (d*6)/6)-a( (d*6>/6>-5 A / 

3503 PRINT AT a(<d*6>/6>. dl INK 6l“D“ *// /f l9F / J ^ . 

350ft FOR n-69 TO 50 STEP -3 MA-j*W/W r ~A S //It- 

3505 BEEP .01. n VQ/V // / 6- 

3507 LET p«o*fta INT (al(d*6>/6>> fV l 

3509 LET c-19 / ' A. '* C/ >-A 

3510 LET d-b * / \ ~-\V S 

3511 GO SUB 9999 A A i 

3512 IF p>1000 AND s<1030 THEN LET 0-e*3l< GO TO 2000 l|\i \^AW/ 

3513 PRINT AT 19. (d-l>l" ®M l W 

3700 GO TO 109 N1 I 

5000 REM CCCCCCCCCCCCCC Cakr.v 

navnC CCCCCCCCCCCCCC 

5001 LET x»-’ M LET a-U FOR a-1 TO 31 t LET --65 

: PRINT AT 2. Ot “GODT GJORT” , “Du ar d#r> badata ao > l I #f t.i datta ae.I.Skriv <«. 
t navn -ad ust«tn« 5»8 t.i at koara fra- oa t.ibaaa . aifabatat -aa.try. paa 

0 raar d»r staar dat r.at.aaboastav. " "6-SLUT" 

5010 IF lNKEY*-“6“ OR IN 31-4 OR IN 31-6 OR IN 31-5 THEN i LET "i PRINT 

AT 12. Ol Z* t “ “« RETURN 

5011 BEEP .01.01 BEEP .01. H LET ---♦(< INKEYa-"8" OR IN 31" l >>-C < :nkEV»-“S" OR I 
N 31-2>» * IF --91 THEN LET --6ft 

5012 IF --63 THEN LET --90 

5020 PRINT AT 12.(e-l)l INVERSE 1ICHM mI l IF :NKEY#-*0" OR IN 31-16 ThEn BEEP 
■ 1.0« BEEP . l.-RTi BEEP . 1.30« LET z*«a)»CHR* mi PRlKlT AT 12.0lz«> LET a-a*l: \EX 
T p: RETURN 
5999 GO TO 5010 


T ai RETURN 
5999 GO TO 5010 

9SOO REM EEEEEEEEEEEEEEEEEEEEEEEE Earaf.ko 

a .natrut>onE EEEEEEEEEEEEEEEEEEEEEEEE 

9399 RESTORE 

9900 PAPER 7 

9901 INK 0 

9902 BORDER 4 

9903 FOR n-USR "a" TO 65416 
9906 READ a 

9990 POKE n.a■ NEXT n 

9991 CLS 

9992 PRINT TAB 101 INK 5l PAPER 11 "BL0M8TER"• INK Ol PAPER 7l"I datta nil ar du 
•** aartnar A.dar akai radda din# bio-star "I INK 2l"FFF"l INK Ol" 

•i INK ai'EEE'i INK 0l"fra at bi iva salat af 6 >aaap» billar -| 
I* 21-D’l INK 01-.- 

9993 PRINT "dar lowar i lanaa traada “I INK ftl-C"l INK Ol" nad ovar iKatrian. “ 

“Dv bar 3 liv o« faar -I FLASH ll INK 61 PAPER 2l”EK8TRA-l PAPER 7: FLASH 0 

i INK Ol-liv for hvar 1000 aeints" 

999A PRINT “For at kunna faa ao.nta akal du akrda aftar bll larna -ad akyan -| IN 
K 3i"B*i INK Oi-aaa da klivar ra«t.oa du faar aomta aftar hvor biiiarna ar. 
Hvia du ar for lanaat vaak fra biIlan oa du akydar kan akyan nadbrydaa af luf 
tan o* aiftan bar inaan virkniaa aaa biilarna.Brua 5*8 til V/H oa O til akud. 
Enar brua ka-Paton Joystick. " 

9995 BEEP .01.RND-20I PRINT AT 21.01 PAPER INT (RND-7)I INK INT (RND-8)I"Tryk Pa 
a an taat for at atarta •• 

9996 IF INKEY#--* THEN 00 TO 9995 

9997 RUN 

9998 DATA 2ft. 2ft. 60. 60. 60. 126. 126.126. 28. 56. 28. 85. 170. 56. 28. 56. 16. 16. 16. 16. 16. 16. 
16. 16. 16. 186. 186. 254.56. 21ft. Ift6.40. 66. 36. 197. 110. 56. 112. 48. 255.0.0.0.0.0.0. 119. 1 
19.0 

9999 PRINT AT 0. Ol PAPER 4l"_- ;py o, Ol' Scorai”! 

•*"—*** I*****--" 1*80 TO C 1-1) > i RETURN 


Modstands^ 

bevcegelse 


COMMO 

DORE 

64 



■ De fleste folk, der pusler 
med elektronik pd amatar el- 
ler prolessionelt plan, kom- 
mer pd et eller andet 
tidspunkt ud lor at skulle be- 
regne modstande. 

Det gar man normalt pr. 
hdndkratt eller lommeregner, 
men man kan udmaerket la¬ 
de en Commodore 64 loreta- 
ge arbejdet. Dette lille smarte 
program kan ovenikabet ud- 
regne afvigelser i modstan¬ 
de. 

Programmet sparger om de li¬ 
re tarver pd modstanden. Ud 
tra de oplysninger kan det 
dels beregne vcerdien dels 
atvigelsesprocenten. Be-, 
mcerk i programmet, at a er 
nul og A er AA.D 

Allan Kristensen 



1 REM MOBSTANDSKODE 
3 REM MADE BV ALLAN KRISTENSEN 
10 PPINT" Di ":POKE53280,6:P0KE53231,6 
20 PRINTTRB< 13) "mODSTHNDS KOBE" 

30 PRINTTRB<11 >"SWOT r- i-t-tt-tt—- " 

40 F0RJ=1T04 : PRINTTRB<11>"I II II II II I":NEXT 

50 PRINTTRBf ID" - ---- 

60 PRINTTAB<7>"TT1/-H"TAB<28)" I- 

70 F0RJ SS 1T02 : PRINTTAB<7)" I "TAB<32>" I " • NEXT 

80 PRINT"XB«IOmi*II!Mk. ,1 :F0RJ»lT04:PRINTJ"*. FRRVE "J : INPUTAS 

90 IF R*="S0RT" THEN fi<J)®1:B<J>=0 

100 IF fl$*"BRUN" THEN fl(J)*10:B(J)*l 

110 IF R*="R0B" THEN fi< J>=>100: B<J>*2 

120 IF R$="ORANGE" THEN R<J)=10T3:B<J)=3 

130 IF R$="GUL" THEN R(JJ-10T4:BCJi=4 

140 IF R*="GR0N" THEN R<J)=10T5 B(J)=5 

150 IF R*="BLRR" THEN fl<J)=10T6:B<J)=6 

160 IF fl*="VIOLET" THEN R<J>=10T7:B(J>=7 

170 IF A*="GRAR" THEN RCJ)=10TS B(J>=8 

180 IF Rf="HVID" THEN fl<J)=10T9:B<J)-9 

210 IF J<4 THEN NEXT 

220 IF R$="GULD" THEN C(J>=5 

230 IF A*="S0LV" THEN C(J)=10 

235 IF fl*="R0D" THEN C<J>=2 

240 IF B(2)>0THENLET B<1)*B<1>*10+B(2) : LET D-B(l)*fi<3> 

243 IF B(2>=0 THEN D*B(l)*flC3) 

245 PP INTTRB < 5 ) "' 1111111TIWOBST ANDEN ER F'RR" ; 

250 IF D>*0 RNIi B<=999 THEN 300 
260 IF D>1000 AND D<=999999THEN 400 
270 IF B>999999THEN 500 
300 PJ="" 

310 GOTO 940 
400 LET D-D/1000 
410 PS="K" 

420 GOTO 940 
430 GOTO 940 
500 LET B=B/1000000 
510 P*="M" 

940 PRINT D; 

950 PRINT"3"TAB<27> " WWWWnWfifiPttlKIS " ■ PJ, " OHM 
960 PRINT" MED TOLERANCE PAA";C<4)J"X" 

970 PRINT"MBOiTTRVK FOR AT FORSAETTE" 

1000 F0RJ=1T03 : PRINT" “:NEXT 

1010 OETAS : IFA*0"k" THEN 1010 
1020 CLR 
1030 RUN 
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Proxon angriber 


■ I spillet "Proxon angriber" 
befinder du dig ved styrepul- 
ten i rumskibet Stellar Fighter, 
der er det eneste tilbage at en 
hel armada til beskyttelse at 
din iredelige planet. 

Din opgave er at forsvare din 
hjemklode mod tjendtlige 


missiler. der udsendes i en 
strid strom tra krigsplaneten 
Proxon. 

Da du styrer fredsplanetens 
eneste tilbagevcerende ium- 
skib. skal du passe ekstra pd. 
Skibets beskyttelsesskjold kan 


nemlig maximalt tdle at blive 
ramt tire gange, ter det smad- 
res. 

Spillet styres med A tor op og 
Z tor ned. Missiler attyres med 
space-tasten.D 

Flemming Christensen 




9 GO SUB 3000 
10 FOR a=l TO 5: READ a* 

20 FOR b=0 TO 7 ■ READ c 
30 POKE USR a*tb,c 
40 NEXT b: NEXT a 

50 DATA "a",48,48,56,191,127,255,1,0 
^ 60 DATA "b",0,0,0,192,48,8,255,0 

70 DATA “c",0,15,63,255,63,15,0,0 
80 DATA "d",0,255,255,255,255,255,0,0 
90 DATA "e-,0,227,255,255,255,227,0,0 
100 PAUSE l: IF INKEY*=“" THEN BORDER 
0: BORDER 2- BORDER 6 : BORDER 4: BORDER 
5: BORDER 0= GO TO 100 
& 110 BORDER 7 
120 CLS 
1000 LET x*10 
1010 LET m I =0: LET Ii=0 
1020 LET s=0 

1030 PRINT AT 0,0 1 "Score: " ;t 
1035 LET xl-INT (RN0*19)*2 
1037 LET ml=0 

1040 FOR n=28 TO 2 STEP -1 
1050 LET x=xtCINKEY*="z" AND x<20)-CINKE 
Y*="a” AND x>2) 

1055 IF INKEY*-" " THEN GO SUB 1500 

1059 PRINT AT X-1.0J" " 

1060 PRINT AT x,0J INK Hi'ab" 

1061 PRINT AT xtl,0J“ " 

1070 LET xl=xl*CRNO <.1 AND xl<20)-CRND>. 

9 AND xl>3) 

1079 PRINT AT xl-l.nl” 

1080 PRINT AT xl.nj INK mi i"cd« “ 

1081 PRINT AT Xl*l,n; n 
1090 NEXT n 
1100 LET 11-11*2 
1110 IF 11 “6 THEN GO TO 2200 
1112 FOR a=30 TO 10 STEP -2: BEEP .05,a: 

BEEP .05,a»5: BEEP .05,a-5: NEXT a 
1115 PRINT AT xl.ntl’■ " 

1120 GO TO 1035 
1500 FOR j=2 TO 7 STEP 5 
1510 PLOT INK j;17,175-x*8-6 
1520 DRAW INK j;n*8-17,0 
1530 BEEP .1,40 
1540 NEXT J 

1550 IF x—x 1 THEN LET ml-mlt2 
1380 IF ml =8 THEN GO TO 2000 


1700 RETURN 

2000 PRINT AT x],n*1; FLASH li"cd«" 

2010 LET «=«*10 

2020 PRINT AT 0,7; FLASH 1 is 

2030 FOR a-10 TO 40 STEP 2: BEEP .l,as B 

EEP .05,a-5: NEXT a 

2040 PRINT AT 0,7;$ 

2050 PRINT AT xl.ntl;” 

2100 GO TO 1035 

2200 PRINT AT x,0; FLASH l;"ab" 

2205 PRINT AT xl.ntl;" 

2210 FOR s — 1 TO 4: FOR a=10 TO 20: BEEP 
.05,a: NEXT a: NEXT s 

2220 FOR a=40 TO 10 STEP -2: BEEP .l,a: 
BEEP .1,a-5: NEXT a 
2230 PRINT AT x,0;" ” 

2240 FOR a=] TO 22: PRINT AT 10,a;" GAHE 
ODER": PAUSE 5: NEXT a 
2245 PAUSE 50 
2250 CLS 

2260 PRINT AT 10,6;"Et spil mere ?. (J/'NJ 


PAUSE 0 

IF 1NKEY*="J" THEN CLS 


GO TO 100 


0 CLS 
0 STOP 
a PAPER 
5 PRINT 
3 PRINT 
s I (er. 
? foer d 
sprin 9 er 

3 PRINT 
,eksp Iod 
Did." 

3 PRINT 

laar de 
a at lor 
t. Det s 


7: INK 0: BORDER 7: CLS 
AT 0, 13; INUERSE 1 miSSIL" 
Ou bllver an 9 rebet al 
Hvert miss I I skal rammes 4 
ets skjold bryder sammen 09 
1 1u11en. " 

"Slipper der et missll lorb 
erer det 09 beskadiger di 

" Hver gan9 du rammer et tr 
n en lysere farve som le 
svarsskjoldet bllver lor 
amme gaelder for dit II 


3040 PRINT '"Du styrer ned med 2, op med 
A, 09 skyder med space." 

3050 PRINT AT 20,101'TRYK EN TAST" 

3060 RETURN 

3100 SAUE "Hits-I" LINE I 




0ft 


/ K*re laeser. ( 'H I T U 

Vi hdber, atduertilfreds med programmemei JsYv* JU 
i> SPECIAL. 

Skulle du ligge inde med tilsvarende gode - og mdske endnu sjovere og 
bedre - programmer, du selv har level, herer vi gerne fra dig. SOFT er I 
nemlig leesernes blad, og vi betaler op til 1000 kroner for el rigtig spaen- 
-— , dende program. Og mdske fdr netop dit program en fremlreedende plods 
j i det naeste SOFT SPECIAL eller i "Alt om Data". 

Indsend dit program pd kossettebdnd eller disc og gerne vedlagt en ud- 1 
printning. Somtlige programmer testes og vurderes, inden de offentligge- 
res. Alt materiale returneres efter brug, og bladet har fuld ret til ot publi- 
cere programme! pd tryk og eventuelt andet lagermedium. 

V Programmer sendes til "Alt om Data", St. Kongensgode 72,1264 Kaben- 
1 havn K. 
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J.R.’s rival 


■ I OFF-SHORE til Lambda/ 
Marathon/Power gcelder det 
om at sejle rundt og bore efter 
olie. Deretter skal fundet brin- 
ges i land, eksporteres og du 
skulle si gerne tjene penge. 
Den der sidst i spillet har tlest 
penge, er den lykkelige vin- 
der. 

Hele spillet. pincer banktor- 
retningerne, styres med joy¬ 
stick, og det har foruden de 
velkendte funktioner to nye: 
Tryk pi skudknappen bety- 
der ja, mens vippen med pin- 
den betyder nej. 
Olielelternes omlang og be- 
liggenhed veksler tra spil til 
spil, men jo starre dybde du 
borer pi, desto mere olie kan 
du finde - hvis der altsi er no- 
get pi DET lelt. 

Hvert nyt spiller-display spar¬ 
ger, om du vil sejle eller bore. 
Hvis du ikke vil nogle at dele- 
ne, tir du en rcekke andre 
muligheder: proviantering at 
dieselolie til sejlads samt fade- 
varer til mandskabet. Er du 
farst i saen bliver det dyrt med 
en nadvendig helikopterassi- 
stance. Banklorretningeme er 
lige ud ad landevejen, men 
husk at bide gceld og tilgo- 
dehavender trcekker renter, 
og at diskontoen kan variere! 
Hjemsejling sker ved, at du 
sejler gennem de inverse 
plusser med oliefelter. Nir du 
har samlet tilstrcekkelige 
maengder, bar du sejle i 
havn. 

Koncessioner tilharer normalt 
staten, men kan kabes (hajst 
10 ad gangen) til 6000 S pr. 
styk. Kort over koncessioner- 
ne fis pi torlangende. Eks- 
porten er ogsi et kapitel tor 
sig, men som ved alle de an¬ 
dre tinesser gcelder det, at et- 
ter et par gange forstir man 
systemet. Etter hver spillerun- 
de vises display'et, indtil der 
trykkes pi et eller andet igen. 
OFF-SHORE er et spil med 
ganske mange uventede be- 
givenheder, og husk at hver 
eneste oplysning pi skcer- 
men har en betydninglD 

Jan Hansen 


KRSSEBEHCLD 2.509.00(3 
D IESEL *■****♦****■*♦♦* + * + **♦•*■*■** 33 
FODEU.******4******** 
n* IEFUNDi 0 I TRNK O 

--- 8.4» 


BPMKFORRET.NING 
OLIETRRN3PORT 
PRO'-. 1 IRNTERING 
EKSPORT 


>INGENTING 

KONCESSION 


1 SPUE "OFa-- 

2 REM REU23 

3 SOUND 8,3000 
10 T$»" 


11 

12 

13 

14 


Z-15 
39990 
R-20 

ULYK-8110 
15 US-9 
18 FLO* 


30 RU *9900 
33 DI-10 
4.0 RU-500 
42 RZ-520 
45 BRNK.3O00 
50 LR -95| 

60 


U| 


90 FR5T 

10O DIM Yt(3,225) 

110 FOR 0-1 TO 225 

120 Y• (2,0) —5TR0 (INT tRND»10) ) 
125 Y|(1,0)*"0" 

130 Yt (3,0) 

150 NEXT O 

180 H-16»((1tINT tRNO»15)))—7 
170 M —H -3 ♦INT (RND *7) 

190 FOR 0-1 TO 30 
195 U-H-34INT tRND»7> 

200 IF RND<.5 THEN GOTO 240 
210 G-J-4fINT (RND»9> 

230 GOTO 250 

0-0-60415«(INT (RND*©>> 

IF G <1 OR G >225 THEN GOTO S 




00 
260 
270 


Y| (1,G) i 
NEX” “ 


-FSHORE 


_ ■••1” 
iXT o 
272 SLOU_ 

278 M»IB 
384 FOR 0.1 TO 16 
386 M-M.l 
290 X.INT (RND.3) 

S2S EOR U-3 TO 18 STEP X.l 

296 PRINT RT U,M;"X" 

299 IF J>8 RNO U<12 THEN PRINT 
RT J,M;R*(M.l} 

300 PRINT RT 20-U,31-H;"X" 

301 IF U>8 RND J<13 Th£n PRINT 
RT 20-J,31-M;R»(3a-M> 

302 SOUND 3,90 

303 NEXT U 

304 SOUND 56,700 

305 NEXT O 
307 GOSUB RU 

RT Z,Q : "I 


315 R* = 

.320 PRINT 

330 INPUT R 
340 DIM K(A) 

345 DIM M (R.l 
350 DIM B(fl) 

353 DIM X(R) 

354 DIM Y(R) 

355 DIM F(R> 

360 DIM O(A) 

370 DIM T (At 
380 DIM C(A) 

390 GOSUB RU 
392 DIM NO(R,7) 

zn m* , s 2 s‘Jsv , * hd# *» 

400 PRINT RT Z,0, 'BBB 
faCHRQ (CODE STR* Otl? 

405 INPUT N*(Ot 
410 FOR J.l TO 7 
128? N * =CHR* (CODE N$C0,J) 

425 NEXT U _ 

430 PRINT 'H21H ;NS<0) 

435 GOSU8 RU*™ ' * 

436 IF Q>1 THEN HCO)=27-3*0 

^438 KCO)-25000004INT (RND*5000 

442 F(0)-15 +INT (RND * 20 > 

444 X (O) =H CO) 

446 Y(O)=15 
464 NEXT O 
466 GOSUB RU 
468 PRINT RT Z,0;** 



-o 


470 INPUT D 
499 GOTO 1000 

I-S' "5«^"*RT K §IS?5=2gk 
i'tAnk-*A? ; s?«?5* ONt>i " nf + 

£?SsY;-r?®® 

S <Ti .INT K(T) 

575 IF 8J?J < «- T t! eN GOTO 6 ®S 
81C. IF £,'?! i. TMEN COTO 650 

•®5S< 1 ?o F fi{???TT MBN PBINT PT 3 - 

.liS.rxS'fwr?® ™ EN ppint m s 

6=® US»U3-1.RND,2 

.58? US ' 4 THEN US.US.INT (RND 

^1*0 PRiNT T RT U §ri8; '■_ 

HI ^Tf^Vr BET U«N 

t§0 DorS4 T bi® t MEN GOTO 700 
" KR. P T RT s .0i"GAELD G(T) 

522 RCTURN 

(t“£" P KR^ ” T = 0. "TIL CODE 
999 RETURN 

iISS ?85 ?:? Tg g STER 

III! 1039 

A|27 PRINT RT 10<a . 

1026 GOSUB C 

10§ 1 OOsiS^I* * D1 *'O'T)-'100) 

M KP St z,0,t* 

!!!! THEN £000 
1150 CLS 

2S SUB 

1170 GOSUB C 

1200 5£2? D t S '‘°° 

7900 Ir INT (Sy ' 5) THEN GOSUB 

ii - »• 

1250 CLS 

iitl SgfST N »‘ l > 

126S PRINT •• 

|1?8 SgiKT 

HI! PRINT - 0,1, 'L_ 

i 22 § S9ST K,1 ‘ ,2, -g, ei 

/ 

foil ' " — »» L 

2045 PRINT R T M.0, - B ..,r t n 
2050 H 

2060 PRINT RT H, 0; “ >••; R T 






H-M.a.,INKEY,."R" ) -2.,INXEY 

M.IBi •• , 


THEN GOTO 20e 


2065 IF INKEY*, "l 

ill! 

pi ir^ To ai 
if II 
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iifi PRXN-^-fVS-ngg 1 ' 0 3300 

;-K (T) : ■' KB.I n+ 0 ',,°5 R . «RNGLER • 
BDUENOiGT" ' RT 17 '®. - LOBN N 

32S2 oosue c 

Ills PRi5t°’- 7 ™ EN SOTO 39=0 
3 DCR 0nIkeS" OK ‘ SKRIU HUOR meoet 
2112 INp UT K 

IIss 


3SS0 PRINT "OK" 

3S60 K(T)=KIT)-U 

2122 2 IT) - G 1TI -O 

3590 PRINT RT 17,0, "OFT E.R W ft* 

3600 GOSUB C 
3699 RETURN 
3950 GOSUB RU 

3960 PRINT RT 7 0 H3M»m — , — 


3970 SOUND 900,10000 
3000 GOTO 1200 
4.002 Ub0 
4020 GOSUB LA 
4030 PAINT AT X (T1 Y(T> 

,26 TH ^ N at 3. 


5080 PRINT RT 


-i“"B" RINT nT ”; RT 18,0 

RN0 °- 3i >-- 
3130 IP INKEY*»"U" THEN GOTO 51S 

iiit §2SS O 5100 

ilil ir^f-'^ussssi? 0 ™ 3 = 00 

6170 B IT, oB (T> to 

ills REM°^gi e 

llll zwwSrtV 1 **' 

ISIS ZiZ&f.uzE. - 

5310 GOSUB C 

Iifi ™ eN return 


ES R O-iS TO y(Ti step -a 

nth *" T » <T > 

SbsaSSv"* 8 ' 

s !i!T7^?I4'- ,T - T --' 0 -- 5 §23 

SS x Ss£°S» , fi yr ' , “ , " x " 1 " T °' v< 

5390 NEXT O 

t??h mV?* 3000 * ‘ 1B_V <T> ♦ <ROS < x < 

2122 *' T)=KIT >-n 

' ISOUND 3,9000 

KR?" T r+ 5 -°. "DER kostede •• 

2125 ggyMS 156.50000 

8?}I«,55?KTo8S ^R 1 ?' INT <«<T)7100 

Ills sg^asi 

8001 BB=5 

till ^ci 000 

life |5 to I 6I00 RND * 1s1 
88K pgiKT RT 

6012 POR 0=1 TO R 

0 ?S3«>SgF"- N„g,?.«B .., T(0); .. 

6080 PRINT 
6023 NEXT O 
6023 SCROLL 

ISIS igggfct 

1111 S"|8J5-#&/gigr "**♦»> 

s§ll if gKg;:l TSiK g?i?g* a 


6 ~Ffr£ " " EN PRINT R T 3 , 

6?B ! ?T)f B . < . T> <2 ® ™ CN PRINT RT 2, 

4036 SOUND 10,300 

404.0 GOSUB C 

4042 FiT)«FIT)-1 

4044 BIT)aB(T)-1 

ISUs W&'JsrsMtZ'r* th 

405BDX (T) «X (T) ♦ (AND X*T>< 
2D -TJ$*"4”) 

4060 V(T) «Y (T) + (J $ = ”F") -CU$= *7" 
RND V<Ti >0) 

4070 IF PEEK (16510*(33*X<T))*Y( 
T) ) -14 9 THEN GOTO 4100 

1858 goto n 203o 7 ™ cn GOSue 7760 

4100 U=U*3000 

4110 PRINT RT 5,0, IE II !■ IIHH 

aiil x 'T)=KIT)-2000*US 

41 I 0 wiin ' » mj m jsgA - ta a a ... 

4140 GOTO 4030 

tT? B RS^ T ir2«5TT)')' u RND «<o*T»»-eo 

4240 RETURN 

S?S*GS?o x ^iI >Mrn OR t 

5010 PRINT RT 6,0 
S012 FOR 0.1 TO a 

ISil 5g5^o u * iu *' u,; u,; L,,ir » 

5020 PRINT T* 

502= GOSUB RI 
5040 PRINT RT 7.10: 


^r- R ^pg!s R .g: Vi5o^f Be; - 

6041 T(T)=T(T)-E 

|i|L RR i^ R T 0 i^i R 

6046 PRINT nr 0,2S E 

IF " ?NgEv|T > I G" N T SeS U GOTO 0 |0 

6050 RETURN 

6140 R :»‘ 1NT <T IT) 72000, 

61SC FOR P=l TO « 

6160 print RT S,0,U*;P re tr. 
I, • N, " RUNDER" ' ' • RF 1Rl - 

6160 PRINT N«IJ>;"STYRER BUDENE 

B^ogSSP " TRYK JR ' HVXS 5RLG E 
P18 ?> PRINT "KRSSEBEHOLONING NU •• 

111? IW l°t% 

6193 SCROLL 

fill irW “« 

58MS&S UIL — 

III! ?2 P = I ^ R - TO 1 STEP -1 

till lbs* -s^,ggi° 6230 

|?? 9 poR^.gS.-'S-glSigg^ " ;N *' 

2I?2 gosub' c ' * lruere 

llii ™ en got ° “ 00 

6250 NEXT I 

|2S5 PRINT m .NtlJ); 

III? 

Iifi Iggrjg 13000 

6320 & 8 J0<, " U " ™ CN rct URN 

!!i! 0 ‘rr% R - n -,?i,-= 0 >- 3 rn => 
tils .. . 

6335 RETURN 
6420 8CROLI. 


|445 IP INKEY • <»••'• THEN GOTO 644 
6447 xJtm'U" 

6450 GOTO 6315 

6470 SCROLL 

6471 SCROLL 


6477 SCROLL 
2t?2 2 OTO 6285 
6010 GOSUB LR 

6920 PRINT RT 3,0;"SKRL LlrF«*«r, 
OT OUENI- 40000 KR." LICENSKO 
6930 GOSUB C 

6033 IF J$<>"U" THEN GOTO 7000 

6934 IF RND>.96 THEN GOTO 0400 

6935 PRST 

6936 POR B■1 TO R 
6940 FOR 0-1 TO 15 
6945 SOUND 9,fij 
6950 POR J«1 TO 15 




6970 NEXT J 

1111 S 

69BQ SLOW 

ISIS -4000 


42s? roR piTTrr 

li^VInr ,K IT, 7100 

1111 

7010 5 0 ^?, ao '= 0 ee 

6*F* T f; .. F . C . T) <2® THEN PRINT rt 3/ 
7020 y *Y (Ti 

HP sgiK r x - y * » 

?lie ?2 INT ** y.y, •• •• 

5" gND"Y»0>'**" F " BND YllBI-lj,... 

HP 

;agg " “‘I* 41 OR F(T, < i th EN re 

7oSn T U" • ’ <S6 ™ BN PR INT RT 3, 

70 0 S g°r;o N 70i! aa THEN gosub 7720 
711 I i' T> * y 

7?2 0 C rT IT ’ S1S RNt> X,T »=MIT, TH 

-ill w^;iiv?-2» «*y 

7?== T „ x INCN GOTO 77 

7? 3 i 3 ?g R V *| 3 ' E * ^<>N.,T,1, THEN GO 

?i2i EgR o-irg 2‘ WB >- v.,a,L, 

l|l! sg^ D o °*^iSfe x * ,0 > 

7 is? S EXT S 

rill 1F RNDiTis^SgS 0 ®* 0 

I160 IF Y* (1 ;2?.I«5N GOTO 7700 

THEN GOTO 72 

Tl^S^PRINT^RT 5 0 "HHBBHBBH9 

^60 SOUND 150,19000 

7189 NEXT P 

7190 RETURN 

7200 FOR 0=1 TO LEN X* 

7210 PRINT RT X.YiXJIG) 


7220 SOUND 60-2*0,100 
7230 NEXT O 
7240 Y*I 1 L) ="0" 

7250 Fl)=UHL Y* 12,L) *1000*INT IRN 
D * 1000 ) 

7^0 PRINT RT5^.N« IT) : " g BUJII 

7?f0 SOUND 160*75000 
7290 Y*(2,L) ="fi" 

7300 o IT) =0 IT) +FU 
7305 PRINT RT 4,9, 0 IT) 

7310 PRUSE 100 
7320 NEXT P 
7350 RETURN 
7700 FLR = 1 

7705 K IT, =K IT) -10O000 
7710 GOTO ULYK 
7730 YiIs‘ K ‘ T> - 20 °0000 
7735 X =H*IT , 

7740 FLR =2 

??I8 geS2 3 UL¥K 

???i 2 ;jStr; r s^x'H' 1 ” > 

7777 UsU-R 

?sss ges?-4 uLvK 

?8I8 .. 

fill G°T0’uLYA‘ R * ,K,f ' -'I 0 ®’ 

?g§7 52g? D S - S00 O 

7910 FOR Q.l TO »■ 

?1§I nExt'o 1 ' 0 ’ ■"*" ™ CN U-U.i 

7932 SLOU 

?222 PRINT 

7935 PRINT "DER ER NU ")U;" FELT 
7940 PR!NT "MED OLIEINDMOLD TILB 

IHI g??gg N c 

nrb 2«2| ?n pi§tio4®- "f5?? t e 2 ec ' jb 

8003“j:pl0*" * 5S5 - FCLT ER NRReT 
8004 LI-0 
0095 0-3 
8010 GOSUB LA 

HI! 

ggig gosub’ c 

IIP y:?: < J^|::: r ^ , ;«uj. 

!?§2 if 

till v±?° 0018 

g«3 7 Y, ‘ 3 - 1 -- -N»<T,1) THEN RET 

2i“«_<>••*.. THEN GOTO B 


||11 

pi! ^M’^VI.i, 

60BB PRlJi? «T-I M lg.75IV R N 


vrwmf—rnKm 

i in stcp 

810® NEXT O 
*LGU 

i® ti¥i*” 

SiSS 25^° s ' 0;u * iT * 

gill |ct5rn 

jM5 : then priwt rt 


‘ ,! | I^2Zl ST 

^iSL'SSfSfS..-. 

llll IpKg r - 13000 ' 

7ib9 rs 

till FoS’s?ri6 3 g e0iui 

-l=6000 R 3i O -- R * ™eN K I O, =K (G» 

Ipl 35^..° 

S24Vt2? 7130 

8*S8 gg?N?^ T T S k e 

3 -Sf?5- E - 

ill! I§|o!^§ 0 

902§ BRIN? = i T TO P 
S ' PR INT RT HIO, ,16, N*, 0 , • 

|®30 NEXT O ' *<0>, KM 

III! sS^^TlI^on??*, 13 

ii —. w . M 

®400 RETURN 

|||i 

9930 NEXT I 
9940 SCROLL 
SSS0 RETURN 

agg? .55.&&£?}'■'" GOTO 933® 

9999 RETURN 
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2110 REM * hol>F*r r*tur for ny ink** * 

2120 REM t t 

2130 rem tmimmmiiiituiimmtm 

2140 xa*-x*' v4*-y* 

2130 GOTO 1330 
2160 ENO 

2170 REM ttttttttltttt 
2100 REM * * 

2190 REM * linl* * 

2200 REM * * 

2210 REM ttttttttttttt 

2220 PRINT §4i "LINIE" 

2230 FOR t-1 TO 300 NEXT 

2240 MOVE lx*.ly* ORflU x*.y*.l dxX-lx* dy*-lx* IxX-x* IwX-y* 

2230 PRINT 44 

2260 »l*t-llnl* 

2270 RETURN 
2200 REM 

2290 REM * * 

2300 REM t clrk*l * 

2310 REM * * 

2320 REM *ft***t«**t**«*** 

2330 PRINT 44, "CIRKEL" 

2340 r#dliJt* a 6QR( < RB8< lx*-x*>*2 )♦<AB8< l**-y*>*2 )> 

2330 *!-l 

2360 IF radiui*>100 THEN »'-0.5 
2370 IF radlu«*<23 THEN »-2 
2300 FOR 9'-l TO 360 STEP »' 

2390 DEC 

2400 PLOT lx**radlu*XtC0S<9' >. txX*r«dlu4*tSIN< 9'>,i 
2410 NEXT 
2420 PRINT 44 
2430 »l*t-clrk*l 

2440 PRINT #3, “'NSKES CIRKELEN UDFYLT <J/*N>“ 

2430 IF INKEYC 43 )-0 THEN GOSUB 2300 GOTO 2490 

2460 IF INKEY<46>-0 THEN 2400 

2470 GOTO 2430 

2400 PRINT 45 

2490 RETURN 

2300 REM tttitttttttttttttttttttt 

2310 REM * « 

2320 REM * udfyldt clrk*I * 

2330 REM * f 

2340 REM 

2 330 PRINT 45 

2360 PRINT 44, ,, UOFYLOER , ‘ 

2370 LET «'-0.3 *'-90.3 
2300 IF rjdlu»*>10O THEN *'-0.23 a '-90.23 
2390 IF radlu»*<25 THEN »'-2 *'-91 
2600 FOP 9'-90 TO 1 STEP ' 

2610 DEG 

2620 MOVE lx**r*dlu»**C0S<9' >• ly*-*radiu»*«SIN< 9' > 

2630 DRAU W*>radlu»**COS< 360-9' >. !y**radlu4*#SIN< 360-9* >.l 
2640 MOVE lx**radiu***COS<90*f J'-9'>>, ly**rfdl<J***SIN'90*<a , -9' >) 

2630 DRAU lxV.4r*dlut5lkCOS<360-<90^«'-9' )>>. ly**r«diu»*iSlN<360-< 90*< * 1 -9' >>>. I 
2660 NEXT 

2670 ftUt-tOft 
2680 PRINT 44 
2690 RETURN 

2700 REM Ittttltlttlttttt 

2710 REM * * 

2720 REM t firkant * 

2730 REM t • 

2740 REM 

2730 PRINT *4. "FIPKflNT" 

2760 FOR t-1 TO 300 NEXT 
2770 MOVE lx*, ly* 

27m DRAM **.ly*. 1 DRAM x*,y*.t DRAW 1x7..**, 1 DRAU W*.ly*,t 
2790 *l*t-firkant 
2SO0 PRINT *4 

2810 PRINT *3, " NSKES FIPKANTEN UDFYLT <J/*N>" 

2820 IF INKEY<43 >-0 THEN GOSUB 2870 GOTO 2860 

2830 IF lNKEY<46)-0 THEN 2830 

2840 GOTO 2820 

2830 PRINT *3 

2860 RETURN 

2870 REM iiiimtNimiiimmt 
2880 REM t t 

2890 REM * udfvldt firkant # 

2900 REM t t 

2910 REM imNNimmimmit 
2920 PRINT 45 
2930 PRINT 44, "UOFYLDER” 

2940 IF lx* -A THEN »t*— 1 ELSE tt*-l 
2930 FOP Mcjv-i to w. STFP «»•; 

2960 MOVE ud*>ly* 

29W- -W»W- 
2^80 NEXT 
2990 «l*t-toi* 

3000 PRINT 44 
301O RETURN 

3020 REM iMMmimmiiimiMimiimii 

3030 REM t t 

3040 REM I ud*irivnln9 af skfr-mbt I led*- » 

3030 REM * I 

3060 REM immmmmiitmimiimmi 

3070 PRINT 43. "UD7KPIVNING OF SK*PMBlLLE0E" FOR T-1 TO 300 NEXT 

3080 PRINT43 PRINT 43 

3090 SAVE ••billed*",6.-I6384.16383 

31O0 RETURN 

3110 rem rmimimimimtmmumm 

3120 REM * t 

3130 REM * lndNEsolno *9 1 led- * 

3140 REM I t 

3150 REM imimmmmiimmmmim 

3160 PPINT 43. ••INDl.JfSNlNG OF SKP-PMBILLEDE" FOR T*1 TO 500 ME XT 
3170 PRINT43 PRINT 43 
3180 LOAD ‘"bi l led-" 

3190 RETURN 



320O REM imimuttim 

3210 REM a a 

3229 REM * sl*tmn9 * 

3230 REM t t 

3240 REM ttttxttttttttttt 

3250 IF «l*t=tom THEN GOSUB 3300 REM ir.9*o t»n9 af sl-»»- 

3260 IF • l*t«l Ini* THEN COSUB 3390 REM sl**mn9 af Urn* 

3270 IF slet-cirkel THEN GOSUB 3500 REM sletnin9 at cirkel 

3280 IF slet-firkant THEN GOSUB 3640 REM *l*tnir>9 #f fIrk ant 

3290 RETIJRN 

3309 REM nmmmmmmmtmi 

3310 REM t t 

3320 REM » 1n9*n tin9 af sl*tt* * 

3330 REM » t 

3340 rem mimtmmmmtmim 

3350 PRINT 45. -DETTE FAN IKKE SLETTES" 

3360 FOR t-1 TO 1000 NEXT 

3370 PRINT 45 
3380 RETURN 

3390 rem tmimmmmmmm 

3400 REM a a 

3410 REM t *l*tnin9 if Uni* « 

3420 REM * t 

3430 REM immmmmmmmi 
3440 PRINT 44. "SLETTER" 

3450 MOVE dx*,dv* 1 DRAU v*.y*.i«' lx*-dx* ly*-dy* 

3460 FOR t-1 TO 500 NEXT 

3470 PRINT 44 
3480 sl*t—to* 

3490 RETURN 

3500 REM itititmmmitimm 
3510 REM S « 

3520 REM * 4l*tnin9 af clrk*l * 

3530 REM > « 

3540 REM 

3550 PRINT 44. “SLETTER" 

3560 IF rjdlu**>100 THEN *'-0.5 ELSE »'-l 
3570 FOR 9 1 ■1 TO 360 STEP *' 

3580 DEG 

3590 PLOT lx*+radi<ia**COS< 9' >. ly**rad><j***SlNf 9'>.ia 

3600 NEXT 
3610 PRINT 44 
3620 »l*t-to- 
3630 RETURN 

3640 rem mmmimmmmm 
3650 REM * t 

3660 REM t tl*tnin9 af firkant * 

3670 REM * * 

3680 rem mmttmmmttmm 
3690 PRINT 44. "SLETTER" 

3700 FOR t-1 TO 500 NEXT 
3710 MOVE lx*.ly* 

3720 DRAW x*.ly*.0 DRAW x*.y*.0 DRAW lx*,y*.0 DRAW lx*.ly*.ia 

3730 PRINT 44 
3740 tUt-tOM 
3750 RETURN 

3760 rem mmimmtim 
3770 REM t t 

3700 REM t »*TVj/for*ld* * 

3790 REM » * 

3800 rem immtmmmi 
3810 CLS 

3820 LOCATE 20,3 

3030 PRINT “MENU FOR TEGNEPROGRAM" 

3040 LOCATE 20,4 

3850 PRINT “.....“ 

3860 PRINT 41. “'S* ■ ST ART xCENTRUM/HJ'RNE“ 

3070 PRINT 41 

3880 PPINT 41. “'I' • LINIE" 

3890 PRINT 4! 

3900 PRINT 41, “'C' - CIRXEL" 

3910 PRINT 41 

3920 PRINT 41. “'B' - FIRKANT <B0X>" 

3930 PRINT 41 

3940 PRINT 41, “'D' - SLETTE < DELETE >“ 

3950 PRINT 4! 

3960 PRINT 41. "'F' - FORFRA" 

3970 PRINT 41 

3980 PPINT 41, “'H' - HJ*LP" 

3990 PPINT 42, “'U' - UOSKPIVNING TIL B4ND" 

4000 PPINT 42 

4010 PRINT 42. I' ■ INDL*SNING FRA B«ND“ 

4020 PRINT 42 

4030 PRINT 42, "'“,CHR4< 240 );"' ■ OP" 

4040 PRINT 42 

4050 PRINT 42, "'“.CHR4<241>.“' - NED" 

4060 PRINT 42 

4070 PPINT 42. “'",CHP4' 242 )."' ■ VENSTEP" 

4080 PPINT 42 

4090 PPINT 42, “' “ ,CHP4*' 243 ). “ ' ■ H'JPE" 

4100 PPINT 42 

4110 PPINT 42, “'SHIFT' ♦ PIL ■ HIJRTIG" 

4120 LOCATE 5.20 

4130 PPINT "NB 1 CIPKEL t FIPKANT TEGNES INVEPSEPET' I FOPHOLD TIL HVOP CUPSOPEN 
ST*“ 

4140 LOCATE 30.22 

4150 PPINT CHP4M64' .-CAP8TEM OLSEN- 
4160 LOCATE 43.1.1 

4170 PPINT 43,"TRYK ENTER FOP AF STAPTE PROGRAMMET" 

4180 IF INKEY'18>-0 THEN PETUPN ELSE GOTO 4160 

4190 PEM immrnt 

4200 PEM t a 

4210 PEM • hid* t 

4220 PEM a t 

4230 PEM iiimmii 

4240 PPINT 45. “‘S' ■ STAPTxCENTPUM'HJ RNE" 

4250 FOR t-1 TO 1000 NEXT 
4260 PRINT 45. “'L' ■ LINIE" 

4270 FOR t-1 TO 1000 NEXT 
4280 PRINT 45. "'C' » CIRKEL" 

4290 FOR t-1 TO 1000 NEXT 

4300 PRINT 45. “'B' « FIRKANT ' BOX >" 

4310 FOR t-1 TO 1000 NEXT 

4320 PRINT 45. ” t* * SLETTE 'DELETE-" 

4330 FOP t-1 TO 1000 NEXT 
4340 PPINT 45. “' F' = FfiPFPA" 

4350 FOR t-1 TO 1000 NEXT 
4360 PRINT 45. "'H' = HJ*LP" 

4370 FOR *-l TO 1000 NEXT 

4380 PRINT 45. " U' *= UD C -KPIWING Til BoNC-" 

4390 FOP t=l TO 1000 NEXT 

4400 PRINT 45. “'I' a INt-L*SNING FPA BaND“ 

4410 FOR t-1 TO 1000 NEXT 

4420 PPINT 45. “ ’ “ .CMP«<' 240 >. • * «3P" 

4430 FOR t-1 TO 1000 NEXT 

4440 PRINT 45. HPS' 241 *." = NFD" 

4450 FOP t-1 TO 1000 NEXT 

4460 PPINT 45. " ' “ ;CHP9-' 242 >. “ ’ = VENSTER" 

4470 FOP t-1 TO 1000 NEXT 

4480 PRINT 45. -'-.CHR* 243 • " * H iRE" 

4490 FOR »=1 TO 1000 NEXT 

4500 PRINT 45 "SHIFT * Pfl = M«'CTTr.“ 

4510 fcr- t«l to 1090 ue::t 
4520 PRINT *5 
4530 PETUPN 
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Regnelcerer 



■ Regnelcerer til Commodore 
64 er et program, som kan 
hjcelpe srnd skolebarn med 
matematikken. 

Programmet giver nogle op- 
gaver, som man skal lose. 
Opgaveme bliver svcerere. jo 
flere man tir last. 
Opgaveme omfatter de tire 
regnearter. Programmet er el- 
lers selvtorklarende.D 

Michael Lundholm 


3 PRINT’J* 

6 POKE3320O,0iP0KE3328I,0iP0KE33272,23 

7 OOSU03OO 

0 F0RA-0T02000l^XT 

9 P0KE33272,21IGOSU013OO 

10 P0KE34276,32iPRINT*J* 

12 REM* aVAELGEPROGRAM*• 

13 PR INT'MMMMMMMMHMfENj * 1 PRINT’S! 


1 1+2 ‘ ^ 

za 


1 

/ 

4 i 


1 






^ v y 



TSC 


is PRim'iMMflflflHaMMaarcNu'iPRiNT'BManflMflnMW"--* 

20 PRINT'—Ml— m I I-1 

30 PRINT*—| |l-PLUSH I V-MINJSB I I 

31 PRINT')—I_ i i i 

32 PRINT*)—|-1 I-1 

33 PRINT'—| HB-GANOEII H«-OIVIDERH VSTOPfl * 

34 PRINT'!——M 1 I I 

40 IWUT'M—tVAD VIL DU OVES 1 •JA*« IFA»-*3’THErER INT*J* lEM) 

44 PRINT')—IVOR MANGE OMQANGE VIL DU HAVE* 

43 INPUT*]—I* * YIP0KE34296, 13 
4G REM**PLUS-,MINUS- OG GANGEPROGRAM*• 

40 P-23 
49 PRINT’J* 

30 A- IMT< RNX 1 > *P> ♦ I IB-INT< RUN 1>*P>*I 

33 PR INT'MHMMMV’O INTl *S* OMGANGE i *Rl 1FR-YAM)S-Y*3THENGOTO 1000 
60 I FAR - * I 'THEtPRINT'MIMMMMMMMMMMai'" '•*BlC-A«BiRE0-*»* 

70 IFAR-*2'THEN>RINT*M—MMHHaaaaaaMMHai*A*--0iC-A-0iRER-*-' 

00 IFA*-*3*THEN»RINT'MMMMMMIMMMMMMI'A'l'BiC-AlBiRE*-'l' 

02 IFAR-*4 *THENG0T0200 

03 TIB-*000000* i ItfUT'MMMMIHMIl' '0 

06 IFT!9>*OOOOIO*THEM>RINT'1MaaaaMMaaafUJ ER FOR LAN3S0M* 

90 IFO -C THEN>R I NT' mHMIMMW IGTIGT • 1Z -6310 -3001GOSU09OO l S -S *3 
100 IFD< >CTHE^R INT*M—MMFORKERT OCT ER'ClZ -33lQ-1000«G0SU8900 
103 FORE-0T01000lNEXT 

I 10 P-P*23lR-R*HIFR-YAN)S< Y*3THENQ0T0330 
120 G0T049 

200 REMatDIV ISI0NSPR0GRAM** 

201 RE*-*/* 

203 P0KE34296.0IPRINT’J* 

210 PRINT'HVILKEN TABEL VIL OE HAVE?* i IhEUTOlP-10 

219 PRINT’J* 

220 H-G*INT<<RMN l>*IO)*P>l I-G 

221 PR I NT ‘HMMMMPOI NT r *S*OMGANGE I *Ri IFR-YAH)S-Y*3THENG0T01000 
223 TIR-*000000 * IIFP>100THENTIB-*000000 * 

227 TIR-*000000* IIFP>IOOTHENTIR-*000000* 

230 PRINT a MMHHMMMIiailMH‘H'/ , l 

232 IN*UT 

233 IFTIB)*000010-THEWRINT*]mMMHMMf)U ER FOR LANGSOM* 

240 IFJ-KTHEN*R 1 NT' MBMMMMMME IGTIGT * IZ -63 >0-300(G0SUB900 iS-S*3 
230 IFJ< >KTHEN»R I NT' HMMIMMFORKERT DET ER *K IZ-33IQ- 10001GOSUB900 
260 FORL-OTOlOOOiPCXTiR-R* I iP-P* 101 IFR-YAN)S< Y»3THENGOT0330 
270 G0T0219 


*-ALCULATIONg* 


330 REM aaSTOP- ELLER FORTSAETPROGRAMa* 

360 PRINT’J* 

370 IFR-YAPOS-RaSTHEN’RINT’Ma—laiaarCGET FORICMT* lS-S«30 
373 IFS<Ra3AM)S>R*4TMEN>RINT-)HHMaaaMaaMatjDmERKET*iS-S«23 
300 IFS<Ra4ArOS>Ra3THEN>RINT*aMMHHK)ET ER IKKE FOR GODT*iS-S*IO 
303 !FS<R*3Af©S >Ra2THEfER INT'flMMHICIV DIG ICGET f«RE * IG0T0401 
390 IFS<R*2THEN»RINT*Mif)U SKAL FOLGE PCRE FED I SKOLEN* 100T0401 

399 REM STOP- ELLER F0RTSAETPROGRAM 

400 PRINT'MMMHHEO BONUS F IK DU *6’POINT* I00T0403 

401 PRINT'MMHMIIVU F IK ’S'POINT* 

403 P0KE34276,32 > PR I NT * MMHM/1L DU PROVE IGEN?<J/N>* 

403 OETSRiIFSR-**THEN403i 

406 IFSR< >*J*THErERINT*J*iErC 

407 lF6R-*J*THEP«>RINT*MHHaH—H—TA0I0*RER'?*lR-0i8-0 
410 GETTERl IFTER- * *THEN4 10 

413 IFTER- *N*THCNG0T010 

420 IFTER-*J*TMEN*R-ARiPRINT*J*iS-0lR-0l00T044 
499 REMaalNX-EDNINGa* 

300 WR-*| ORITTEN BY \ICHAEL LUNDHOLM *-ALCULATION| 

303 PRINT-MMMMMr 

310 FORA- ITOLENC l*/R) iPR INTMI0R< NVR.A, 1 >1 iF0RB-OTO30lPCXTlf*XT 
320 FORDF•IT02001POKE3320O,01POKE33200,71 fCXTDF 
330 RETURN 

900 REM* *LYDPROGRAMa a 

910 N-342721P0KEN.24,13«P0KEN.3,01P0KEN*6.2301POKEN*1.10 

920 POKEN,OiPOKEN*4,ZlFORT-OTOOirCXTiPOKEN*4,16IRETURN 

1000 0-11C-34iA-90«FORL-34272T0342961POKEL,01f«XT 

1003 P0KE34296,13IP0KE34277,64 

1010 POKE34270,89«P0KE34273,0>P0KE34272,0 

1013 P0KE34276,17iP0KE34276,1710-0*31IFO>99THEN0-3 

1020 A-A-llC-C-H IFC< -OTHENQ-Q*A« IFO< ITHEN»0KE34296,0lG0T0330 

1030 GOTO 1003 

1499 REM aaFORKLARINGaa 

1300 PRINT'JHHMi* 

1303 PRINT’OETTE REGfCPROGRAM FOREGAAR SAALEDES AT FORST KOf-fCR OER EN fCNU." 
1310 PRINT’OEREFTER VAELGER WN DEN REG1CART MAN VIL HAVE. SAA VIL *» 

1313 PRINT’COmjTEREN SPOROE*! 

1320 PRINT* HVOR MANGE STYKKER DU VIL HAVE. NAAR DU HAR SVARET PAA *1 
1330 PRINT’DET STILLER COfPUTEREN NOGLE REGhE - STYKKER, SOM BLIVER *» 

1333 PRINT’VANSKELIGERE *1 

1340 PRINT* EFTER-HAAM)EN. DEM BESVARER DU SAA, OG HVIS OUBESVARER DEM ALLE ' 
1330 PRINT’RIOTIOT VIL DER K0f»« NOGLE LYDE FRA COMPUTEREN.* 

1360 PR I NT'JMT » 

1362 PRINTSPC< 9) *CJTRYK EN TAST* 

1363 FORDG- 1T0200INCXT 

1363 PRINTSPC<9)*QiTRYK EN TAST 
1367 FORDG-1T02001 hEXT 
1370 GETSVB*IFSVB-*’THEN1362 
1380 IFSVB< >**THEN*ETURN 


Race 



fmmm 



10 DIMRE*C4).RE<4) FORN«0TO4 RE*<N)»”V1C 20"*STR*<N*1> RE<N>-100 NEXT GOTO40000 
20 KM»0 RXX-10 RWS-4 SBX-10 SPX=4:P0KE36878.15*2 P0KE37137,0 PCKE808.100 P0KE368 
63/60 

30 SP-0:P0KE36879,8 - F0RN-1T023 PRINTTf)B(SPX) "8S« -*STTR8<SP;i*SBX>" W1 ■ NEXT 
40 PRINTTRBCSP/i) "83B9—l"TflB<SPX*SBXl" —MSI 
50 T7."INT(RND<0)*2> 

60 IFTX=1HNDSPX>0TH£NSP2=SPX-1 
70 IFTX-0SNDSPX*SB/;<18THENSPX-SPX*1 

30 P0KE37154,0 : B*< (PEEK <37137) RND60>QR< PEEK (37152; RND1281) : P0KE37154.255 
90 XX*< < BRND128)"0 >-< < BAND 18> =0 > VX»< < BRND3 > *0 >-< < BRND4 >»0 > 

100 POKE7680*RXX»22*<RVX-1),32 
110 IFAXXMRNDXX-lTHENfiXXoAXX-l 
120 I FRYX> 1RNDVX* 1 THENflY»RVX-1 
130 IFAX1X21RNDXX*-1THENRXX-RXX*1 
140 I FRY7.<20RNDVX— 1 THENRYX=RYX* 1 
142 P27.-PEEK(7680*RXX*22»RVXi 

150 IFP2X*32THENPOKE7630*RXX*22»RYX,46 

151 I FP2XO32THENPOKE7680*HXX*22»RVX, 42 
160 KH-KM*1 

170 IFKM/200-INT(KM/200>RNDSBX>6THENSBX»SBX-l 

175 IFKHX1000>INT<KMX1000)RNDP2X=32THENRXX»10 : RYX-4 382*10 SPX=4 SP*0:OOTO30 
180 F0RN-1T0SP NEXT 
190 PRINT 


200 1FS»0RNDRVX*1THENPRINT"S"STR*(KM)"B" S*1 

210 OETRf 1FR4*”"THEN300 

220 IFRSC <R* >-133RNDKMC1000THENSP-200 

230 IFRSC < R*)■134RNDKMC2000THENSP*100 

240 1FRSCCR* >■ 135RNDKM<3000THENSP»50 

250 1FRSC<R»)=136TMENSP>0 

260 1 FRSC ( R* > *92THENUR 1T37137,32.32 

300 1FRVX/2THENS-0 

990 1FP2X0102RNDP2XO97RNDP2XO225THEN40 

991 FORN"60TO1STEP _ 1 P0KE36865.60-INT<N/10> 

P0KE36865,60*INT < N/10) NEXT P0KE3686 5.38 

1000 P0KE36879.27 P0KE36865.38 
1010 FORH-0TO4 

1020 IFKPl*RYX>RE<n>THEN10000 
1030 NEXT 

1040 PRINT'TEW HIGH SCORE BW" 

1050 FORN«0TO4 

1060 PRINTTRB(0>N*1.TRB(37RE*<N^ PRINTTRB(8)RE<N)"KM” PRINT 
1070 NEXT 

1030 PRINT-DU K0RTE"KM*RVX“KM- 
9960 FORN*1TO5000 
9970 NEXTN 

9980 GETR* IFR«=-S“THEN30000 
9990 GOTO20 

9999 END 

10000 F0RN-4T0n*lSTEP-l 
10010 RE«CN)«RE*(N-1) 

10020 RE<N?*RE(N-1> 

10030 NEXT 

10040 RE»Cn>="RNONVM" 
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Talsys 



■ Talsys konverterer deci- ■■ 

maltal til hex. hex til decimal COMMO 
samt decimal til bincer og bi- DOR* H 

ncer til decimal. 64 

Programmet er selvlorklaren- 

de. Dog skal det bemcerkes i ■* ^ 

at det retumerer til menu, ndr BSSS t-t 'ft \ 

der indtastes (RETURN) uden YUvWu U 1 S 

talvcerdi.D ■ ■-■■ ^ '— 

Kai Benlzen 

5 REM TfiLSYSTEMER 
10 PRINTCHR*<147) 

20 DIM ft*(15) 

30 GOSUB 5000 
40 REM 

50 PRINTTfiBUO) !"KONVERTERING OF TfiL" 

60 PRINTTfiBUO) I"-“ 

70 PR I NT:PRINT:PRINTTfiBI13)!”1 HEX. TIL DEC." 

SO PRINT:PRINTTPBC13)!"2 DEC. TIL HEX." 

SO PRINT:PRINTTfiB(13)1“3 BINfiER TIL DEC." 

100 PRINT:PRINTTfiB<13)i”4 DEC. TIL BINfiER" 

110 PRINT:PRINTTOBC13)>" 5 SLUT" 

120 PRINT:PRINT:PRINTTfiB<13)"fiNGIV RUTINENR: -! 

125 GET B*: IF B*="" THEN 125 

126 B=VfiL<B*) 

130 IF B>5 THEN PRINTCHR*<147): GOTO 30 

140 PRINTCHR*<19) :FOR 1 = 1 TO B*2+2 

150 PRINT 

160 NEXT I 

170 PRINTTfiBUO) 

ISO FOR L=1 TO 500:NEXT L 

190 ON B GOTO 200.500.800.1200.1000 

200 PRINTCHR*(147): PRINTTfiBUO) "HEXfiDECIMfiL - DECIMOL" 

210 PRINTTfiBUO)"-" 

220 PRINT:PRINTTOB<12)::INPUT H* 

225 IF H*="“ THEN PRINTCHR*<147):GOT050 
230 M=1:X=0: G=16»3 
240 L=LEN(H*): FOR I=5-L TO 4 
260 T*=MID*(H*. M.1) 

270 IF ASC(T*)>47 fiND OSC(T*> <58 THEN T<I>=VfiL<T*)*G: GOTO 290 

280 T<I)=(0SC<T*)-55)*G 

290 Tft=Tfi+T(I): G=G/16 

300 M=M+1 

310 NEXT I 

315 Tfi*=STR*<Tfl):LT=LEN(Tfi*) 

320 PRINTTfiB<28-LT)::PRINTCHR*<145)! TA 
325 Tfi=0 

330 H*=.GOTO 220 

500 PRINTCHR*(147) 

510 PRINTTfiBUO) "DECIMfiL - HEXfiDECIMfiL" 

520 PRINTTfiBUO)"-" 

530 PRINT:PRINTT0B<9)::INPUT H* 

540 IF VfiL<H*)>65535 THEN 500 

550 IF VAL(H*)<0 THEN H*=STR*<VfiL<H*>+65535) 

560 IF H*="" THEN PRINTCHR*<147):GOTO 50 
570 DS=H*:G=16*3 
580 FOR 1=1 TO 4 

590 C=I NT < VAL < D*)/G):D*=ST R*(VOL< D*)-C*G) 



; DECIMAL. 




595 IF C=0 THEN ft*<C)="0"/ T* rJ ^ / 

600 TA*=Tft*+fi*(C) (_^ W/d 

610 NEXT I 

620 PRINTCHR*<145)i:PRINTTfiB<28-LEN(Tfi*)):Tfi* 

630 ....GOTO 530 

300 PRINTCHRS<147) 

S10 PRINTTfiBUO) "BINfiER - DECIMfiL" 

820 PRINTTfiBUO)"-" 

S30 PRINT:PRINTTfiBCS)i:INPUT H* 

840 IF H*="" THEN PRINTCHR*<147):GOTO 50 
350 IF LEN(H*)> 8 THEN PR INTCHR*U47):GOTO 800 
860 L=LEN(H*)I G=1 
S70 REM 

890 FOR 1=L TO 1 STEP -1 
900 T*=MID*(H*. I. 1) 

910 T<I)=VfiL(T*)*G 

920 Tfi=TCI)+Tfi 

930 G=G*2!NEXT I 

940 TO*=STR*(Tfi):TL=LEN(Tfi») 

950 PRINTCHR*(145)::PRINTTOBC2B-TL)TO* 

960 Tfi=0: ... 330 

970 STOP 

1000 PRINTCHR*(147) 

1010 END 

1200 PRINTCHR*<147):PRINTTfiBC10)"DECIMfiL - BINfiER" 

1210 PRINTTfiBUO)"-” 

1220 PRINT : PRINTTfiB<9) : UNPUT H* 

1230 IF H*=“" THEN PRINTCHR*<147):GOTO 50 

1240 IFVOL< H*)> 255 THEN PRINTCHR*(147):GOTO 1200 

1250 G=2*7 

1260 FOR 1=1 TO 8 

1270 T(I)=INT< VOL<H*)/G) 

1280 H*=STR*<VfiL(H*)-T<I)*G) 

1285 fi*="l" 

1290 IF T<I)=0 THEN fi*="0" 

1300 Tfi*=TA*+ft* 

1310 G=G/2 
1320 NEXT I 

1330 PRINTCHRK 145) !: PRINTTfiB(28-LEN(Tfi*> )Tfi* 

1340 T«*=“":H*="":GOTO 1220 
1350 STOP 

5000 FOR 1=1 TO 15 
5010 REOD fi*<I) 

5020 NEXT I 

5030 DOTft 1.2.3. 4. 5.6. 7. S.9,fi. B, C.D. E. F 
5040 RETURN 


RE01)»KN»RVX 

PRINT'TBIHR JEG FAR BIT NRVN TIL HIGH SCORE" 
INPUTRE*<M> : IFLEN<RE*<H) »15THEN10070 
RE*(l1)=RE*<M)*STR»<n*l> 

GOTO1040 

GETR# IFA*O"T"THEN9990 
GETR* • IFR*O"O”THEN9990 
GETR*: IFR*O"P"THEN9990 
POKE808.112 

PR1NT"SPQL BRRNBET TILBRGE OG TRYK 'RETURN'" 
WRIT197.64.64 

3RVE"RRCER I" PRINT : PR I NT "PROGRAM SRVEB" 

0PEN1.1,1."RACER I FILE" PRINT PRINT"SRVINO HIGH SCORE 

FQRN*0TQ4 

PRINT#1,RE*<N> 

PRINT41,STR*<RE(N)) 

NEXT 
CLOSE1 
PRINT"OK" 

END 

PRINT"SPOL BRRNDET TILBRGE OG TRYK 'RETURN' 
WRIT197,64,64 

QPEN1.1.0."RRCER I FILE" PRINT"FOUNB" 

FORN=0TO4 
1NPUT#1, RES(N) 

I NPUT# 1, fl* 

RE<H)=VRL<H«) 

NEXT 
CLOSE1 


l GOTO20 


Dette racerspil kan kore pi en forste Fl, andet F2, tredje F3 
VIC-20 uden ekstra RAM-til- ogfjerdeF4. 


slutning. Ved i 

Spillet styres med joysticks, med 
Forsog at kore si laenge som RUN. 
muligt. Du har fire gear, - 


Ved forste start begynder du 
med RUN20. Derefter bare 
RUN. Henning Petersen 
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Mcelkevej 


■ Programmet »Mcelkevej« 
demonstrerer pd en overbe- 
visende made, hvor Hot Com¬ 
modore 64 kan tegne pd en 
skcerm. 

Ndr programmet er tcerdig, 
stdr du tilbage med et impo- 
nerende gratikbillede at en 
mcelkevej med oyer 2000 
stjerner. Da programmet ta- 
ger lidt tid at kore, er det vel- 


egnet til t.eks. *demo«. 
Programmet tegner en eller to 
spiralarme i en al universets 
galakser. Centerstjemen mar- 
keres i hvidt, mens planeter- 
ne udenom tarves i bldt pd 
en sort baggrund. 
•Mcelkevej* rummer en del 
REM-scetninger, sd det funge- 
rerselvinstmerende. □ 

Christian Nielsen 



100 REM ***MAELKEVEJ*** LTV._ 

110 

120 REM PAR COMMODORE 64 

130 PRINT CHR*(147> REN SKAERMEN SLETTES 

140 PRINT VU.T ON DflTR 1384" 

145 PRINT INPUT"HVOR NRNOE SPIRRLRRNE <1 ELLER 2>”,Z1 

150 POKE 53280.0 REN RAMMEN FRRVES SORT 

160 PRINT PRINT PRINT *'HRV LIDT TRALMODIOHED" 

170 POKE 56.32- REM BASIC 8ESKVTTES NED ORRFIK FOER INDSKRIVNINO 

180 00SUB 1000 REM ORRFIKKEN TRENDES 

190 

200 FOR 2-1 TO 21 

210 IF Z-l THEN W-0 OOTO 230 

220 IF 2-2 THEN U-lt 

230 FOR R-0 TO 2 STEP .01 

240 REM * KOORDINRTER FRSTLREOOES FOR BESTEMT PUNKT I SPIRRLEN • 

250 R-EXP(R>12 

260 X-COS(U)*2*R*160 V-SIN<M)»R/2*100*COS(W)»R REM CENTRERES 

270 Xl-X • VI-V OOSUB 2000 REM HOVEDSTJERNEN TEONES 

299 REMmMimwtMMfimmMMMK 

300 REM DE OMOIVENDE STJERNER INDTEONES 

301 REMniiunimammununtin 

310 IF «<1.75 THEN I0-A»2*1 ■ OOTO 340 

320 IF R<1.85 THEN 10-2 OOTO 340 

330 10-1 

340 1 FOR 1-0 TO 10 

350 DX-RNDC1)*3 DV-RND(1>*3 

360 Dl-RNDC1> ■ D2-RNDC1) 

370 1 IF DK.5 THEN DX—DX 

380 IF D2C.5 THEN DV—DV 

390 Xl-X+DX i V1-V*DV OOSUB 2000 REM OEVRIOE STJERNER INDTEONES 
400 NEXT I 

410 Wl-RNDC 1 )/5 i U-U*H1 
420 NEXT R 
430 NEXT Z 

439 REummnMiumnninnnnH 

440 REM0STJERNER TEONES 80M BROORUND • 

445 KMUHniHumunnHimiiMu 

450 FOR S-l TO 230 

460 X-RND<114320 VRNDC1>*200 REM TILFRELDIOE PLRDSER BESTEMMES 

480 Xl-X 1 Vl-V • OOSUB 2000 REM STJERNER TEONES 
490 NEXT S 

«3 i _ __ 

494 REM im 

495 REM VENTER PAR TR8TTRVK 

496 REM •••••*•**•**••*•••**•*•*****.» COMMO R 

500 OET a* ■ IF 0*."” THEN 500 DORE H 

510 REM ••**••*••••**•*•••••*••*••■••*• 64 * 

520 REM ORRFIKKEN UDKOBLES P*’! 

530 REM ••**••••••••••••••**••*•*•••••( 

540 POKE 53265.PEEK(53265) RND 223 

550 POKE 53272,PEEK(33272)RND 247 NKgUHIinffti | 

570 END B I 

999 REM ***************************»**» L_ ~ . ~1 

1000 REM ORRFIKHUKOMMELSEN SLETTES * 

1001 REM**********»***»*»***********«* 

1005 FOR 1=8192 T016191 POKE 1.0 ' NEXT 
1010 REM******************************* 

1020 REM BROORUNDSFflRVEN BLIVER SORT, STJERNERNE HVIDE 
1030 REM******************************* 

1040 FOR 1=1024 TO 2023 POKE 1,16 NEXT 

1050 POKE 53272,PEEK(53272) OR 8- REM ORRFIKKEN STRRTER FRA RDPESSE 3192 

1060 POKE 53265,PEEK(53265) OR 32 : REM HOEJOPLOESNINO STARTER 

1070 

1030 RETURN 
1030 

2000 REM******************************* 

2010 REM SAET PRIK 

2020 REM INPUT : X- 00 Y-POSITION (XI,VI) 

2030 REM OUTPUT 

2040 REM******************************* 

2060 X1=INT(X1) V=INT<Y1> 

2070 BY=3I32*INT(Vl/3)*320*8*INT<Xl/8)+(YI AND 7) 

2080 POKE BY,PEEK(BV) OP <2T(7-<X1AND 7))). REM SAET PRIK 
2030 RETURN 
2030 RETURN 



■ Du skal i dette lille program toppen. Hvis du ikke gar det 
styre dig vej igennem den in- hurtigt nok, er du tcerdig. 
tergalaktiske rumvej i syste- Styr med tasterne Q for op, A 
met Sorion, Du skal finde hver tor ned, M til venstre og N til 
passage lor at avancere til hojre.D 

NilsLausten 


Star 

race 




1 0=1 

2 POKES3280,0 P0KE33281.0 PRINT".T POKE650,255 

3 INPUT "ENTER LEVEL (1-10)",T 

10 F0RI = lT013-PRINT"aHBBnB**H*BB#***HB?**naHnjiaS****HS)ft743!WSF*(’' 

20 PRINT"* 8” 

30 NEXT I 

31 F0RE=1T0T 

40 FORI-1024TO2023STEP48 POKEI* INT(38«RND(0))*1,32 
30 NEXTI NEXTE 

60 IFPEEK( 1124*P)O102THENOP=1 OOTO100 
70 IFPEEK(1024*60*P*1> = 102THENO--1 GOTO100 
30 IFPEEK(1024*60*P-1)=102THENO=*I 
100 POKE1960*J,81 P0KE56232*J.l 

105 POKE 1024*60*P, 32 : POKE55296*60*P, 0 

106 IF0P=1THENP-P*40 0=0 OP-2 

107 IFOP-2THENO-1 OP=0 

108 P-P*0 

110 POKE 1024»60*P, 36 POKE55296*60*P, 2 

120 IFP>900THENGOTO1000 

121 IFJ<-900THENGOTO1100 

125 POKE 1960* J, 32 : P0KE56232+J, 0 
130 OETA* IFA*O”"THENGOTO400 
200 OOTO60 

400 IF A*- "A" ANDPEEK (I960* J*40)O102THENJ-J*40: OOTO60 
410 IFR*-"Q"RNDPEEK(1960*J-40)O102THENJ-J-40 GOTO60 
420 IFflF-"N"RNDPEEK< 1960*J“1)O102THENJ-J-1 : GOTO60 
430 IFA*-"M"ANDPEEK(1960*J*1)OI02THENJ-J*1 GOTO60 
440 IFRS—"fl"ORR*-"Q“ORAF-"N''ORA*-"M"THENOOSUB3000 
450 00T060 

1000 PRINT-.TELENDIOT. DU TRITE" : OOTO2000 
1100 PRINT‘TFINT KLRRET. DIJ VANDT" OOTO2000 
2000 PRINT PRINT:PRINT PRINT PRINT:PRINT 
2100 PRINT"W’RESS 'O' TO PLAYT 
2110 PRINT'kPRESS 'O' TO PLAYT 
2220 OETR*•IFA*«"Q"THENRUN 
2222 OOTO2J00 

3000 V-54296 W54276 = R-34277 H-34273 L-54272 
3005 FORX-10TO8STEP-.25 

30 1 0 POKEV ,X POKEU ,17 POKE A, 15 POKEH .40 POKEL - 200 P0KE54278 , 248 NEXT 
3020 POKEU,0 POKER,0 RETURN 
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Kabul kaput 
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COMMO 

DORE 

64 



■ Her har du sd nok et blodigt 
kampspil til din Commodore 
64. Denne gang foregdr det 
hele i Alghanistans hoved- 
stad Kabul, hvor du skal ned- 
kcempe nogle scerdeles 
indcedt kcempende rebeller. 
Som pilot i en kamphelikop- 
ter er din opgave at bombe 


sd mange hojhuse som mu- 
ligt. Men rebellerne har vce- 
ret snedige. De har hceldt 
mcelk i din tlybenzin, sd du 
tager hojde hele tiden. Altsd, 
pd den. hvis du vil nd at sarn¬ 
ie points, inden du selv ryger 
ned pd maven.D 

Tom Rasmussen 


3 POKE338BI,6tP0KE33880.6 
10 PRINT-J-:V-33848:F-34878:MI-0 
IS PRINT-B8/FMT CT OJEBLIK. 

40 REM LESCR ORTA TIL GRAF IK ' 

SO PORI-I8888T01839 IIREAOAIPOKEI,A:f«XT 
S3 POR I ■ I 8300TO 18600• POKE I ,OiMXT 

60 ~~ I- IBMlT TlTllllllllll lilil 1 TY BOILER “ 

68 PRINT-«rONTROL TAST: SPACE ..I SMIO EN 80*«C * 

63 PR I NT •■CONTROL TA8TI P-TAST..I FLYETS MAST IOMEO * 

64 MR I NT 1 ■—ITTTTTTt • EN TAST POR AT STARTS* 

63 POKE 198,0 : WAIT198,I« POKE 198.I 

86 PRINT*J*iP0KE34896.13:P0KE34877,0: P0KE34878,840:M-348731T-34876 
70 POKEV *84,88 * SC"01 BO■IOOILV-I ILL-8 

100 REM ORAPIK 

101 FORP- 1944T08083 I POKEP ,3 • POKEP »P ,0:«XT:0-8 t :L-8 

108 I I•INT< RNO< I >«3>*LL:P0KE78I.0*I:P0KE788,L:SYS63380:PRINT'KKKJKK* 

103 PORI•I TO I I 

104 POKE78 I ,01POKE 788.LISYS633801PRINT *KKKKI I * :0-0-I: fCXT 
103 P0KE78I, O:POKE788, L:SYS63380« PRINT “LOOMFG“ 

106 0-81IL-L-6 

110 IPL>88TMEN3-0«L-0«00T0I14 

111 GOTO 108 

114 P0KE3388I,61P0KE33880.6 

140 REM MOVED PROGRAM 

ISO X- I084I0-0IRK-1909 

133 POKEX.ItPOKEX.F,4:0Q-<RMX I > *8 > 

136 POKERK .OtPOKERK*P ,4 
160 OX-XiGR-RKIPOKEOY.38 

168 1PPEEK<RK >-8TMENRK- 1904 *001Y-01POKEGR,38:POKEGY,38 * YY-0*0-0* POKEM,3 s POKEH.0 
163 IPPEEK< Y>-OTMEI«K-!904*GGlY-O:POKEGR,38:POKEGY,38:YY-0:Q-0>POKEH,3:POKEH,0 
163 X-XM :RK-RK-40 
170 KEY-PEEK< 197) 

173 IFO-OTHENIFKEY-60TMENO-I«Y-X«40tYY-10:PP-0:P-0 

176 IFKEY-8 I TXEW«X*0.3 

180 IFO-ITHEN00SUB300 

190 IFPEEK< X>-ITMENOOTO199 

193 |FPEEK<X>< >38THENG0TO600 

199 IFX >1948THENG0T0660 

800 IPX >1864THE NO-10 

803 IFRK<1084TMEf*K>I904*GG:POKEGR,38 

830 POKEGX,38:POKEGR,38 

300 GOTO 133 

499 REM 80r-«E-RUTINE 

300 POKEY,8«P0KEY»P,8«GY-YtY-Y*40 

303 IFPEEK< Y> -0THEf41K • 1904 »GG * Y-0:POKEGR . 38 : POKEGY,38 * YY-0*0-0 : POKEM,0 
310 IFPEEK< Y>< >38THENSC-SC *3«PP■1:P-P•I 
318 IFPP-ITHEf*>0KEH,P:P0KET,33:P0KET,189 

313 IPYM943TMENY-0:0-0iPOKEGY,3tFORP-lTOS:POKEM,PsPOKET,189:rCXT:P0KEM,0:PP-0 


380 RE TURN 

399 REM PLY-STYRT RUTIfC 

600 FORP-lOOTOOSTEP- I:POKEM,PIPOKET,189•NEXT IPOKEH.OIX-X-I10-1001POKEOY,38 
608 POKEX.I IPOKEX«P,4 IOX-X 
603 X-X-40I0-0-I 
606 POKEM,OiPOKET,17 

610 IFX>l94?THEr«(-OlOY-OlPOKEOX,3lGOT06l9 

618 PORP-|TO80>rCXT 

613 POKEOX .38: POKEGR .38IG0TO608 

619 PORP-83TOOSTCP - I IPOKEM ,P:POKET , 189 :PORPP- I TO 10 ■ POKEM ,P : t<CXT: NEXT: POKEM ,0 
680 PR INT-J*: IFSC >H I TMEr*4 I-SC 

683 IFSC>IO0TMEH»R|NT**C0RE:OO-SC> ':■■■ ' 

686 IFSC< IOOTMEt#»R INT-*CORE :000*SC • ’CJBHB)* 

687 IFSC>999TMEH>R|NT**C0RC:0*SC: ’[MMI'fllM * 

688 IFSC«0TMEf«»RINT*»;C0RE:OO00O0* 

689 ipmi >iooTMtn>RiNi • naManuiaiaBiSKiflaMflas <: -score : oo *m i: mmmmt 

630 IPM I< lOOTHEWMNI irrrr-Hr ** * * ** * * ** * . • -SCORE : 000 *H 1 : MU 

631 IPM I >999THEt#>R|NT ‘«MBttMManianttliaCU' I - SCORE : O *H 11 I8—I TTT1 

633 1FMI -OTMEfR»R IN' • : - SCORE :OOOOOO• 

634 PR INT • 8MHSSI9SI19SBSS 1 " " OVER *: POKEV »84 ,8 I : POKEM ,0: POKE T ,0 
633 print mtaaaaaa styrteoe rco paa*jlvj *RUfOE. ■ 

636 PR I NT • •tttSMM R ' ■ EN TAST FOR AT FORSAETTE* 

640 POKE 198,0IUMTI98, I iPOKE 198,0 
633 PRINT*J-:00T07O 
660 REM LAfOET 

663 PRINT • J- »:PORP•1T0833STEP8 «POKEM.P:POKET,17:NEXT:8C-SC•100:P0KE33878,8 I 
670 FOR I "0T083»< Rf®< DtlO> 

673 P0KE3388I.I«POKE33880,I•1:f*XT:P0KE3388I.1:P0KES3880,I I:POKEM,0:POKET,0 
680 PRINT-^ONJS * : BC :* SKttm f • 1 . ' s LV : LV-LV • I : LL-LL • I 
683 FORI-OTD8OO0:fCXT:BO>B0*IOO 

690 IFFAMTHEf^A-l 
693 IPUl.M0TNEf4.L-l0 

700 PRINT*J* :POKEV*84,88:GY-0:GOTO 10 I 

1000 REM OATA TIL GRAPIK 

1001 DATA84.60,60,60,60,60.186,819 

I008 DATA840,840,184.833,833.184,840,840 

1003 0ATA90.186.60.60,84,0,0,0 

1004 OATAI89,34,36,76,89,1.83,4 
1003 OATAO.0.0.0,833.833.833,833 

1006 0ATA8S3.833,833.833.833.833,833,833 

1007 OATA1.1,1.1,3,13,63,833 

1008 OATAI88.188,188,188,198.840,838.833 

1009 OATAO.0.0.0,840.848.838.834 

1010 0ATA833,833,833.833.833,833.833,833 
101 I 0ATA833,833,195,193.193,803,193.193 
1018 0ATA833.833,813,833,813,813.833,833 
1013 OATAO.0,0.0,13.31.63.187 
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Smarte datakarc 


10 P0KE53281,01P0KE53280,0 

20 PRINT" .J»UMUIO«niin«IVI--l'TT L TT . T -T-T- 1 . « « DATA-KARAKTER **** 

40 P0KE52, 48 :P0KE56,481P0KE56334,PEEKC 563341AKC254:POKE 1,PEEK< 11AND251 
50 FORA=I2288T016383:POKEA,PEEK< A*40360): TCXT 

60 POKE 1 ,PEEK< 1>0R4:P0KE36334,PEEK<56334 >0R1:P0KE53272,< PEEK< 53272)AN0240 >♦12 
70 FORA =12288TO12798:RE ADB:POKEA,B: KEXT 
80 FORA =13312T013823:READB:POKEA , B: KEXT 
90 PRINT’i^lYT ALFABET:" 

100 PR IMT"M4BC0EFGH I JKLMNOPQERSTUVUKYZ ■ 

110 PRINT“*nYE TEGN:* 

120 PR 1NT" **-*/=: Ilf A , ■ *CHR*< 34>t" * «CHR*< 39 > * **«Xa,' < > * 


130 PRINT* T i-F TEGN ON* 

140 PRINT**>0KE53272,< PEEK< 53272>AN0240>0R12 * 
130 PRINT*MtNYE TEGN OFF* 

160 PRINT"*'0KE53272,21 * 

170 0ATA060,066,090,082,076,064,060,000:REM 8 
180 DATA060,036,036,126,098,098,098,000:REM A 
190 DATA124,068,068,126,098,098,126,000:REM B 
200 DATA 126,066,064,096,096,098,126,000:REM C 
210 DATA 126,066,066,098,098/098,126,000:REM 0 
220 DATA124,064,064,120,096,096,124,000:REM E 
230 DATA 124,064,064,120,096,098,096,000:REM F 
240 0ATA126,066,064,102,098,098,126,000:REM G 
230 DATA066,066,066,126,098,098,098,000:REM H 
260 DATAO16,016,016,024,024,024,024,000:REM I 
270 0ATA004,004,004,006,006,070,126,0001 REM J 
280 DATA068,068,068,126,098,098,098,000:REM K 
290 0ATA064,064,064,096,096,096,124,000:REM L 
300 0ATA127,073,073,105,103,103,103,000:REM M 
310 DATA 126,066,066,098,098,098,098,000:REM N 
320 DATA 126,070,070,066,066,066,126,000:REM O 
330 DATA 126,066,066,126,096,096,096,000:REM P 
340 OATA126,066,066,066,066,078,126,000:REM Q 
330 DATA 124,068,068,126,098,098,098,000:REM R 
360 DATA126,066,064,126,006,070,126,000:REM S 
370 OATA126,016,016,024,024,024,024,000:REM T 
380 DATA066,066,066,098,098,098,126,000:REM U 
390 DATA098,098,098,102,036,036,060,000:REM V 
400 DATA073,073,073,103,103,103,127,000:REM W 
410 0ATA066,066,098,060,098,098,098,000:REM X 
420 0ATA066,068,066,126,024,024,024,000:REM Y 
430 DATA126,066,002,126,096,098,126,000:REM Z 
440 0ATA060,032,032,032,032,032,060,000:REM * 
430 DATA 126,064,064,240,096,096,126,000:REM ® 
460 0ATA060,004,004,004,004,004,060,000:REM A 
470 DATA000,024,060,126,008,008,024,024:REM t 
480 DATAOOO ,016,048,124,127,048,016,000 1 REM «- 
490 DATAOOO,000,000,000,000,000,000,000:REM 
300 DATAO16,016,024,024,024,000,024,000 s REM I 
310 DATA 102,102,034,034,000,000,000,000:REM * 
520 0ATA100,100,255,102,255,070,070,000:REM * 
330 0ATA016,126,080,126,018,082,126,016-.REM * 
340 0ATA034,102,012,024,032,070,004,000:REM X 
330 DATA062,032,034,127,098,098,126,000:REM 4 
360 DATA006,012,016,000,000,000,000,000:REM • 
370 DATA008,016,032,043,043,024,012,000:REM < 
580 DATAO16,008,004,012,012,024,048,000:REM > 
590 DATA129,102,080,235,060,102,129,000:REM * 
600 DATAOOO,024,024,126,008,008,000,000:REM ♦ 
610 DATAOOO,000,000,000,024,024,008,008:REM , 
620 DATAOOO,000,000,126,112,000,000,000:REM - 
630 DATAOOO,000,000,000,000,024,024,000:REM . 
640 DATAOOO,003,006,012,016,032,064,000:REM / 
630 DATA 126,066,066,070,070,070,126,000:REM 0 
660 DATA008,008,008,024,024,024,024,000:REM 1 
870 DATA126,066,002,126,096,096,126,000:REM 2 
880 DATA 124,068,004,062,006,070,126,000:REM 3 
690 DATA 126,066,066,066,127,006,006,000:REM 4 
700 0ATA126,064,064,126,006,070,126,000:REM 5 
710 DATA 126,066,064,126,070,070,126,000:REM 6 
720 DATA 126,002,002,006,006,006,006,000:REM 7 
730 DATA060,036,036,126,070,070,126,000:REM 8 
740 OATA126,066,066,126,006,006,006,000:REM 3 
730 DATAOOO,024,024,000,000,024,024,000:REM : 
760 DATAOOO,000,024,000,024,024,008,008:REM ; 
770 DATAO14,024,048,036,032,016,014,000:REM < 
780 DATAOOO,000,126,000,126,112,000,000:REM = 
790 DATA112,024,012,006,004,008,112,000:REM > 
800 DATA 126,002,002,126,096,096,000,096:REM 7 
810 REM 


820 REM ***** KEGATIVE TEGN ***** 

830 REM 

840 DATA195,189,165,173,179,191,195,255:REM ® 
830 0ATA193,219,219,129,137,137,137,235:REM A 
860 DATA131,187,187,129,137,137,129,23S:REM B 
870 0ATA129,189,191,159,139,137,129,233:REM C 
880 OATA129,189,189,137,157,137,129,255:REM 0 
890 0ATA131,131,191,135,139,139,131,233:REM E 
900 DATA131,191,191,133,139,139,139,233:REM F 
910 DATA129,189,191,133,137,137,129,235:REM G 
920 DATA183,189,189,129,137,137,137,255:REM H 
930 DATA239,239,239,231,231,231,231,235:REM I 
940 0ATA231,231,231,249,249,183,129,233:REM J 
930 DATA187,187,187,129,137,137,137,235:REM K 
960 0ATA191,191,191,139,159,159,131,235:REM L 
970 DATA128,182,182,130,130,130,130,233:REM M 
980 0ATA129,189,189,137,137,157,137,235:REM N 
990 0ATA129,183,183,189,189,189,129,233:REM O 
1000 DATA129,189,189,129,139,139,139,23S:REM P 
1010 0ATA129,189,189,189,189,177,129,233:REM Q 
1020 0ATA131,187,187,129,137,137,137,233:REM R 
1030 DATA129,189,191,129,249,183,129,233:REM S 
1040 OATA129,239,239,23 I,231,231,231,253:REM T 
1030 DATA189,189,189,137,137,137,129,235:REM U 
1060 0ATA157,157,157,133,219,219,193,253:REM V 
1070 0ATA182,182,182,130,130,130,128,253:REM W 
1080 DATA189,189,137,193,137,157,137,233:REM X 
1090 OATA189,189,189,129,231,231,231,255:REM Y 
1100 DATA129,189,253,129,139,137,129,233:REM Z 
1110 DATA 193,223,223,223,223,223,195,253:REM « 
1120 OATA129,191,191,013,139,159,129,235:REM ® 
1130 0ATA193,231,231,231,231,231,I93,235:REM A 
1140 DATA253,231,195,129,247,247,231,231:REM t 
1150 DA TA233,239,207,131,128,207,239,233: REM *• 
1160 DATA235,233,233,253,235,255,255,255:REM 
1170 DATA239,239,231,231,231,235,231,233:REM ! 
1180 DATA133,133,221 ,221 ,233,253,233,255:REM •' 
1190 DATA133,133,000,133,000,185,185,255:REM It 
1200 DATA239,129,173,129,237,173,129,239:REM * 
1210 0ATA221,153,243,231,223,185,251,255:REM X 
1220 OATA 193,223,221,128,137,137,129,233:REM S. 
1230 0ATA249,243,239,255,255,255,255,255:REM ■ 
1240 DATA247,239,223,207,207,231,243,233:REM < 
1230 0ATA239,247,231,243,243,231,207,253:REM > 
1260 DATA126,153,193,000,193,133,126,255:REM * 
1270 DATA253,231,231,129,247,247,255,255:REM ♦ 
1280 0ATA255,255,235,255,231,231,247,247:REM , 
1290 DATA253,253,233,129,143,235,255,255:REM - 
1300 DATA233,233,235,255,255,231,231,255:REM . 
1310 DATA255,252,249,243,239,223,191,255:REM / 
1320 DATA129,189,189,185,185,185,129,255:REM 0 
1330 DATA247,247,247,231,231,231,231,253:REM 1 
1340 DATA129,189,253,129,159,159,129,255:REM 2 
1350 DATA131,187,251,193,249,185,129,255:REM 3 
1360 DATA129,189,189,183,128,249,249,255:REM 4 
1370 DATA129,191,191,129,249,185,129,255:REM 5 
1380 DATA129,189,191,129,185,185,129,255:REM 6 
1390 OATA129,253,253,249,249,249,249,255:REM 7 
1400 DATA195,219,219,129,185,185,129,255:REM 3 
1410 DATA 129,183,189,129,249,249,249,255:REM 3 
1420 0ATA255,231,231,255,255,231,231,255:REM : 
1430 DATA255,255,231,255,231,231,247,247:REM ; 
1440 DATA241,231,207,159,223,239,241,255:REM < 
1450 0ATA255,255,129,255,129,143,255,255:REM = 
1460 0ATA143,231,243,249,251,247,143,255:REM > 
1470 0ATA129,253,253,129,159,159,255,159:REM 7 
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0rneborgen 


■ I dette spil. der passer til 
Spectrum 16K og 48K. skal du 
forsvare en mur, der er livs- 
nadvendig som beskyttelse at 
en landsby. 


1 BOODEB O PAPER .* IN* 

_* LS CO SUP 1000 

2 DATA 153 153,255.24 3 * 126 
VwV-^ 66 195 15 3 152.255.3? 2? 120 132 

* 129 129 255 129 129*129 255 : 
-. 29 251 251 251.0 191 191 191 f 


29 251 251 251.0 191 .191 191 * 

: DA’A 0 14.53.110.13e 0 2 3 
0 0 126 192 32 0 0 0 126 110 5. 
1* 10 0 0 0 32 . 192 125 0 0 0 0 0 
* L Cr I»16 

5 FOB r.,l AA TO 151 FOB 1 .0 * 

0 - near * COKE use Chp % k 

NE*T 1 NCKT n 

6 let •»* a 

** Lr *«INT I PND *20 *5 l£* 

• 20 Lr * ■ 15 LET b«XNT cn:«20 
•5' -ET m2 LET *C«0 
3 l£t r * * EF •• 

9 LET i.O 

10 POINT A' 19.1 INK i o:c:c 
DDDDDDDDDDDDDDDDDDDDDDDDt AT i? 

i ini- 3 d:cdddddddodd:dcd:::: 
DDDDDDDDD 

1? FOB n«l TO h POINT A' 20-' 
.30 C NE*T r> POINT AT 20-' 3 

0. -D 

I' LET mk*1 

16 IF hal6 THEN FOB F >21 TO 0 
STEP -1 POINT AT r>.30 nE>' 

n LET h »2 LET * «20 CO TO 15 
20 POINT AT « , Y-l i| 

30 POINT A- ».b-l. INK 6 t* 

31 IF On" .95 THEN LET = 1 

35 IF INkE *= 0 then CO TO l. 

0 

. *0 LET INKEY*. a AND t 3 

* 0 AND ' =20'- INKEY*. 5 AND «, - 
ANO * .20. 

*5 IF 1«1 THEN CO SUB 200 
50 IF INKE *.•■? • AND 4 »3o ANC 
« =20*1 THEN LET ««x-l PDIN- 
AT < , V A AT K4l, V , "C • 

55 IF iNf E'*■ "6 AND 20 'h£n 
LET <...1 POINT AT . y A AT 
X-1.9, ’C 

60 LET &.D* OND..5 AND © 23'- 
RND .5 AND c 2 

-*0 IF i *20-n«1 then »6T 5 

POINT AT -1 V ■ 

30 LET SC *S C«1 
35 LET e *. EF - 
90 IF sc -2 INT (jc -2 1 *«E-- .£ 
T - -*»' GH 

2> : B c»i then let s»s-i le~ 


Sagen er bare, at en kcempe- 
arn synes. det er sjovt at bom- 
bardere muren, og det skal 
du lorhindre med alle mid- 
ler. L j Allan Poulsen 


l >0 

100 GO TO 20 

110 IF *s B THEN CO TO 20 

111 LET a*. A 

112 LET i ' *s C *5 

115 FOB ■ 19 TO 4*1 STEP -1 

120 IF SCREEN* m.yn Then c 
BINT AT n U INK 5. C BEEP .01 
.20 GO TO 15 

121 IF SOREEN* «r^. v • • • THEN 0 
0 TO 15 

130 NE«T r, 

140 GO TO 15 

200 IF SCREEN* .*,©' 1 T HE‘< 

PBINT AT t b * BEEP .01 i PO 
INT AT *,©.•• LET SC>SC*15 b.£ 
T S =16 OETUON 

205 POINT AT *,©.'« 1 BEEP .01 
S POINT AT s.b,- " 

210 LET si|<1 

211 IF s«21 THEN CO TO 250 
220 GO TO 200 

250 POINT AT 10.11, FLASH 1 CA 
HE OUEP BEEP 1-10 
260 PRINT AT 12.11, INUEOSE 1 
SCORE-•, FLASH 1. s C 
300 FOB n«l *0 400 NE«- r. 

400 CLS 
500 BUN 

1000 POINT AT 3.9. Flash i. ea&l 
E-ATTACK 

1100 POINT AT 5,2,"DU HAC NET OP 
FOERDIGGJORT 

1200 POINT at 6,2. EN HUO.DESuAE 
RE BLIUEP DEN 

1300 POINT AT 7,2, ••BOHOAOePE” AF 
EN OON." 

1400 PRINT AT e.C.’HUlS OPNEn CE 
NNEHBPrDEO HuREN 

1450 POINT AT 9,2, EB DU FAEPDIG 
SAA DU MAA 

1460 PRINT A' 10.2."HELE TIDEN L 
OBE OP AF STIGEN 

1470 PRINT AT 11,2. FOP AT HENT£ 
NYE STEN TIL 

1430 POINT AT 12.2. 'AT PEPAREPE 
HUREN. 

1490 PRINT AT 14.2."DU ST-REP "E 
D CURSOO-PILENE- 

1495 PRINT AT 15,2. OG STENEn l A 
EGCES PAA PLADS" 

1497 PRINT AT 16,2,"MED 0 
1500 INPUT TOYK ••ENTER NAAB 
DU ER KLAO .0* 

1600 CLS PETURN 


kterer 


Commodore tricks 


flBCDEEGHflBCDEEGH 
IJhLIYINDPIJhLIYimP 
QRSTJUUJ! CLRSTJUtU! 

&7fl I= lD7!Ei&7B 1= JD?iEi 
%■ : M-a* V.V^; S %l : S 


■ Dette program laver hele 
karakterscettet om til smarte 
data karakterer, ndr du karer 
med store bogstaver pd tasta- 
turet. Programmet er skrevet 
fuldt i BASIC og karer pd 
CBM-64.D 

Lars Zeuner 
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Systemtips 


'h 




1 1 


LL 

LLL 

± 1 / //- 

1 

LL 

JJL 



3.75kr. 

7.50kr. 11,25kr. 

IS.OOkr. 

| 18,75 kr. 

22,50// A<25kr. 

30,00 kr. 

33,75kr. 

37,50kr. | 


TIPSTJENESTE AS 



■■ 



MEM 






am 




►2 

El □ E El 

tJQBij 




►S Cl Oftt'E 


MU 

a [1 

am 



ai 



im 




rift ia Cfrn 

. 


a 


■ Mange tipsprogrammer 
har gennem tiderne set da- 
gens lys. Dette program ad- 
skiller sig fra de tleste ved, at 
det udnytter systemtipnin- 
gens iordele. Programmet 
scetter brugeren i stand til i 0 l- 
gende: 

Man kan 

gemme systemer pd bdnd 
hente systemer fra bind 
bmge systemer 
selv indtaste nye systemer 
Programmet er i stand til at 
kopiere systemer fra 6t bdnd 
til et andet. hvilket vil vcere 
nyttigt. ndr Here bmgere al 
programmet vil "bytte" syste¬ 
mer med hinanden! 
Programmets kapacitet er al¬ 


ia reducerede systemer fra 1 
til 255 enkeltrcekker. hvilket 
skulle vcere tilstrcekkeligt lor 
de fleste. 

Indtastning af 
nyt system: 

Ndr programmet har spurgt 
om navnet pd systemet. antal 
hel- og halvgarderinger og 
antal rcekker. skal ABC-nog- 
len indtastes: Programmet 
skriver ''HELGARDERING NR. 
1" og tegner en gran bjcelke 
Helgarderingerne skal nu 
indtastes nejagtigt, som de 
stdr i ABC-noglen (brug taster- 
ne 1. x og 2). Tegnene vil el- 
terhdnden erstatte den 
gronne bjcelke. Idet man ta¬ 


ster sidste tegn i hver bjcelke. 
skiftes der automatisk til nce- 
ste bjcelke (= nceste hel- ell. 
halvgardering). 

VIGT1GT! Alia halvgarderin¬ 
ger skal indtastes med tegne¬ 
ne 1 og 2! (programmet cen- 
drer selv, hvis du (dr brug for 
lx ell. x2garderinger). 

Brug ai system 

Man designer sin opstillings- 
rcekke ved brug af tasterne 
f 1. 15. f3 og 'CRSR UP/DWN'. 
Forste tryk pd f 1 /f3/15 tcender 
det onskede tegn imellem > 
og <. andet tryk slukker. Ndr 
der tastes 17 checker pro¬ 
grammet, om der er det rette 
antal hel- og halvgarderin¬ 


ger. og melder derefter OK! 
eller FEJL! Fds meldingen 
FEJL!, sd ret og tryk 17 pdny. 
Ndr der vises OK!, kreerer pro¬ 
grammet samtlige rcekker i 
systemet og viser dem pd 
skcermen. seks ad gangen, li- 
ge til at skrive ned od tiosku- 
ponen! 

I ovrigt er programmet selv- 
forklarende. 

TIPS: Det er en god idd, at 
holde program og data (sy¬ 
stemer) adskilt pd hver sit 
bdnd, da dette reducerer risi- 
koen for utilsigtet sletning til et 
minimum. □ 


Marlin Christiansen 


9 REM ««••• INIT 

10 POKE 53281,0 

11 PR I NT,- 

12 PRINT' I SYSTEWTIPNING l*ED COI-MOOORE 

13 PRINT- >- 

14 PRINT 

15 PRINT 

16 PRINT 

17 PRINT 

18 PRINT 

19 BETA*I 


64 | 


'I 

-I 


VERSION 2.0" 

AF D. 14/11-1984- 
(C> 1984 BY 0Z11KU" 
MARTIN CHRISTIANSEN" 
B TRYK EN TAST 

UFA**"" THEN 19 
21 DIM HAW 13),HEW I31.KAW 13) 

25 DIM RAW 13 ,255 ) ,URW 13) 

26 DIM D<13),E< 13),F<13),GA( 13) 

30 FOR I ■ 1T013I URW I ) * * ■lNEXT 

100 REM *»»*«« STYREPROGRAM «>»>>•« 

105 GOTO 70001REM ««H0VE0MENU**» 


ISO REM ... 

310 REM •»*«» RAEKKERhC U0SKR1VES «««•« 

312 TXT**'BBJ RAEKKERNE UOSKRIVES 

315 PRINT TXT* 

320 PRINT "WIT'S 
330 FORP*1T0RA 
350 PRINTTABC T+1) 1P 
380 PRINT 

370 PRINTTABt T) "B<-,B" 

380 FOR I«1 TO 3IPRINTTAB< T))RAW I ,P) 1FCXT I 
385 PRINTTAB<T)"BI-IB" 

390 FOR 1*4 TO 6lPRINTTAB< T)!RAW I ,P) I1CXT I 
400 PR1NTTAB<T)-*I-IB- 

410 FOR 1-7 TO 91PRINTTAB<T)!RAW I,P) IfCXT I 
420 PRINTTAB<T)"BI-IB- 

430 FOR 1-10 TO 131PRINTTAB( T)1RAW I,P> IfCXT I 


I 

I 


440 PRINTTABC T> "B'-'B - 

450 T-T *61 PR INT- I II I I III II 1 I1II 1 1 TTTTT 

455 IF P< >RA AhO P/6*INT<P/8> THEN! F*1 I BETA*: IFA»* “ ■ THEN455 
457 IFF*I THEN PRINTTXT*) 'BH* IT*31F*0 
480 FCXT P 

470 GETA*IIFA*--- THEN 470 
480 RETURN 

5000 REM »»>>> SUB SIKKER *«*«» 

5010 FORJ-1TORA 

5020 IF URW I)'"I"THEN RAW I,J)'"BIHI BIB- 
5030 IF URW I)*-X-THEN RAW 1,J)*'BIH X BIB' 

5040 IF URW 1 )*'2*THEN RAW I ,J)*'BIH 2BIB' 

5050 NEXT J 
5060 RETURN 

5100 REM «*»«« SUB HALV «*«»* 

5110 IF URWI)**IX" THEN A*-"2" 

5120 IF URWI>*"X2" THEN A**"1" 

5125 IF URW I )■" 12" THEN A**"" 

5130 F0RJ-1T0RA 

5150 B**MI0W HAW B) ,J, 1 ) 

5160 IF B**A* THEN B*-"X" 

5170 IF B»*" l-THENRAW I ,J)*"BIH1 BIB- 
5180 IF B**-X-THEM?AW I,J)-"BIB X BIB" 

5130 IF B*--2-THEl«AW I,J)*'BIH 2BIB" 

5200 fCXT J 
5210 RETURN 

5300 REM <««l> SUB HEL *«••« 

5310 FORJ* 1T0RA 

5320 C**MI0W HEW A ) , J , 1 > 

5330 IF C*'"1"THEU?AW 1,J)*"BIH1 BIB- 
5340 IF C*-"X-THEM?AW I,J)*-BIH X BIB- 
5350 IF C**-2-THEl«AW I ,J)-*Blil 2BIB" 
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I FEXT J 
RETURN 

REM »»«*»SYSTEMIFDLAESNIFD««»«« 

GOSUB 90001REM »««« FDLSTIL ««• 

TXT*- ' Jfl HENTE SYSTEM BI- 

PRINT TXT*! IFPUT'*a**********l*****EYSTEI-NAVN-)SY< 
PRINT TUTflPRIRT'IBBBBBBI ILAEG DATAKASETTE- 

GETA*sIFA*=-- THEN 3433 
0PEN1,1,0,SY* 

INPUT* 1 ,HE 
INPUT* 1 , HA 
INPUT* 1 ,RA 

IFHEOO THEN FORI * 1T0HEI 1IPUT*1 ,HE« I >lFEXT 
IFHAOO THEN FOR I ■ ITOHAl INPUT* 1 ,HA*C I ) SFEXT 
CLOSE 1 
RETURN 

REM »«»»« OPSTILLINGSRAEKKE *<>>> 

FOR 0-1 TO 13SURWQ)*- - SFC Q ) *0! EC Q>*0IDC 0 >-0 SFEXT 0 

TXT**-«J OPST ILL INGSRAEKKE BI- 

PR INT TXT* 

PR INTTAB< 17X-BI,-,- 

F0RI-1T03SPRINT • KAIP NP.•)I) TABC 17))- I I'lNEXT I 
PRINTTABC 17)1■ I-1 " 

FOR I*4T06SPRINT ■ KAIP FP. •)I)TABC 17))• I I’SNEXT I 
PR!NTTAB< 17))* |-|- 

F0RI-7T09SPRINT • KAIP FP . ■> I ) TABS I7>) • | I* (NEXT I 
PRINTTABC 17)1 ■ |-)■ 

FOR I *10T013sPRINT • KAIP FP. •) I ( TABC 17 >) • | I’SFEXT 

PRINTTABC 17)1 ■ »- >• 

PRINT -flaHBI-sTABC 16);-H>BMHca' 

PRINT -BHaMa|-;TABCB3))'<FI> • IM¬ 
PRINT TABC 25)) "C F3> - XBH* 

PRINT TABC 23)1-<F3> * 2BH* 

PRINT TABC P3>) “<F7> • FAEROIG- 

LI-1IKA-I 

GET A* 

IF A*--*- THEN GOSUB 3900 

IF A**-*" THEN GOSUB 6000 

IF A**-*- THEN GOSUB 6100 

IF A**-D- OR A»**t- THEN GOSUB 6300 

IF A*" - *" OR A**CHR*C13) THEN G0SUB62O0 

IF A*--*- THEN 0K*0sG0SUB64OOsIF0KTHENB860 

GOTO 3780 

RETURN 

REM ««««» SUB ETTAL «*««« 

IF OC KA)*0 THEN 3960 

DC KA)-0:PRINT-BM-sFORI-1 TO LI SPRINT - *') IFEXT I 
PRINTTABC18))■ • 

UR*CKA>*- •♦MID*CUR*CKA>,2,2> 

RETURN 

OC KA )■ I SPRINT'BMI- 'FORI ■ 1 TO LI SPRINT"*") SFEXT 1 
PRINTTABC18))“1■ 

UR*C KA)* # 1 * +MID*C UR*C KA),2,2> 

RETURN 

REM »*«<* KRYDS «»««« 

IF EC KA)*0 THEN 6060 

EC KA) *0 s PR INT B BBH' 1 FOR I ■ I TO L I s PR I NT " *" ) s FEXT I 
PRINTTABC19)1■ • 

UR*C KA ) *MID*C UR*C KA > , I , I ) * ■ * «MID*C UR*C KA > ,3,1 ) 

RETURN 

EC KA > ■ I SPRINT-BBH* s FOR I * I TO LI IPR INT'*' ) SFEXT I 
PRINTTABC 19))-X- 

UR*C KA )-MID*C UR*C KA > , 1 , 1 ) ♦ ’X ■ »MIO*C UR*C KA) ,3, I ) 

RETURN 

REM ««««* TOTOAL»»««* 

IF FCKA)-0 THEN 6160 

FC KA ) “01 PR INT ‘BM*: FOR I » 1 TO LI! PR INT-«- I s FEXT I 
PRINTTABC20))“ 1 
UR*CKA)=MID*CUR*CKA>,I,2)*- ’ 

RETURN 

FCKA)*lsPRINT-BM-sFORI-l TO LI sPR INT - *’) SFEXT I 

PRINTTABC 20))-2- 

UR*C KA)*MID*C UR*C KA), 1 ,2)*-2- 

RETURN 

REM *»* FED **« 

IF KA-13 THEN RETURN 

PRINT "SBM" SFORN* ITOL I! PR INT ■*•) SFEXT N 
PRINT TABC 16)' 3S3S1 • 

L I -LI * 1 -C KA=3> -C KA=6 > -C KA=9 >! KA=KA* I 
PRINT -®W‘F0RN*lT0LISPRINT-*-;srEXT N 
PRINT TABC 16))-a>BSMa- 
RETURN 

REM *«» OP *»« 

IF KA*1 THEN RETURN 

PRINT SFORN* ITOL I SPRINT '*•) SFEXT N 

PRINT TABC 16)" «M1 - 
LI =L I - 1 *C KA=4 ) +C KA=7 ) *C KA* 10 > : KA=KA- 1 

PRINT -)BB's FORN* ITOL I sPR INT-*" ! s FEXT N 
PRINT TABC I6))'H>IBVI' 

RETURN 

REM •••» GAROERINGSKONTROL »«««« 

PRINT -BHMHHMMaMM-'TABC 29)1-VENT-) 

G1*0!G2*0 SG3*0 
FOR I *1T013 
GACI)*0 
FOR J*1 TO 3 

IF MID*CUR*C I),J,1)< >■ -THENGAC I > =GAC I)Nl 
FEXT J 

IF GACI)*l THEN G1=G1*1 
IF GACI)=2 THEN G2=G2*l 
IF GACI)*3 THEN G3=G3*1 
FEXT I 

IF G2=HA AM) G3=HE AM) G1*G2*G3*13 THEN 0K = 1SG0SUB 6600s 

OK-OSGOSUB 6700 

RETURN 

REM.. INC OK «**«•• 


■THENGACI)*GACI>♦1 


6603 FORL-1 TO 3 

6610 PRINT ' ■HMHMMHHMMMI-1 TABC 29)I'* OK ! |- ) 
6620 FORO* 1 TO 100 SFEXT 0 

6630 PRINT ■ ■MMMMMMH* ; TABC 29)) - 
6640 FORO * 1 TO 100 s FEXT 0 
6645 fEXT L 
6830 RETURN 

6700 REM »«««« BL INC FEJL >>>«<• 

6703 FORL-I TO 3 

6710 PRINT -■MHHMaMMaMM')TABC29>>'V : EJL(a- 
6720 FORO*ITO 100 SNEXT 0 

6730 PRINT -■H*M******M*M**aW>TABC29>)' 

6740 FORO *1 TO 100 NEXT 0 
6743 FEXT L 
6730 RETURN 

6600 REM ••••• RAEKKERFE UOREGFES «»««« 

6801 TXT*-'dMI RAEKKERFE UOREGFES BT 

6802 PR I FIT TXT* 

6803 PRIFIT-aMHHMMMDTABC 17>)'k.-,* 

6804 PR INTTABC 17)“ IVEFIT | ■ 

6803 PRIFITTABC 17) • >->■ 

6606 PRIFTT'aMHaMMMW/ENT LIDT FCOENS JEG FINDER*' 
6807 PRIFIT-1*********EN TRETTEFER TIL DIG!’ 

6810 FOR I■ITO13 

6813 B**-- 

6814 FOR Y-1T03 

6813 IF MID*CUR*C I),Y,1><>- 'THEN B**B**MID*C UR*C I ) , Y, 1 > 
6816 FEXT Y 
6617 UR*< I )*B« 

6820 IF LENC UR*C I )) *3 THEN A*A*lsGOSUB 3300 

6839 IF LEFXURCC I)>*2 THEN B*Btl sGOSUB 3100 

6840 IF LEF«UR*C I))*I THEN C-C<1IG0SUB 3000 
6830 FEXT I 

6860 RETURN 
7000 REM 

7010 REM • H0VE0I-EF4J « 

7020 REM «»••<<•••»•.. 


7030 TXT**'^| 

7040 PRIFIT TXT*)-* 
7030 PRIFIT ■ 

7060 PRIFIT ■ 

7070 PRIFIT * 

7073 PRIFIT • 

7077 PRIFIT • 

7080 GET A*!1FA*-“- 


HOVED I-ENU 

LAGRE SYSTEM* - 
HENTE SYSTEM* - 
BRUGE SYSTEM*- 
IM)TASTE NYT SYSTEM*- 
SLUT- 


THEN 7080 


7090 IF A**-*- THEN GOSUB IOOOOS GOTO 7000 
7100 IF A** - *- THEN GOSUB 3400s GOTO 70p0 

7110 IF A**-*- THEN GOSUB 3600SG0SUB 6800IG0SUB310s GOTO 7000 
7113 IF A*'*-*- THEN GOSUB BOOOsGOTO 7000 
7117 IF A**-S- THEN SYS64738 
7120 GOTO 7080 
7200 RETURN 

8000 REM ****>(••*((•***<•••«(*•***•<** 

8010 REM • " IFDTAST SYSTEM • 

8020 REM ..••••••<•••»••»• 

8023 GOSUB 9000 IREM »»*«*MJLSTILLING • 

8030 TXT**-«ja -IFOTASTNING AF SYSTEM 


IFDTAST SYSTEM 


•)-HELGARDER1FD FP. - )J)- 
‘Ml ■■*) sFEXT I 
•■■IIFCXT I 


•)-HALVGARDERIFC FP. - )J>-| 
'■1 **■ : SFEXT I 
-*-)lNEXT I 


8033 PRIFIT TXT*)-BaMMMI SYSTEFETS NAVN-siINPUT SY* 

8040 PRIFIT TXT*)'■*■■■■■■■■1 ANTAL HELGARDERIFDER ' ) S INPUT HE 

8030 PRINT TXT*) MMMMI ANTAL HALVGAROERIFDER*) S INPUT HA 

8060 PRIFIT TXT*)'■*■■■■■■■■ ANTAL RAEKKER*) I INPUT RA 

8070 IF HE*0 THEN 8270 
8073 FOR J*I TO HE 

8080 PRIFIT TXT*)'■*M**I*)-HELGAROERINC FP.-IJl'M* 

8090 FOR 1*1 TO RAsPRINT ‘Si *•) SFEXT I 
8100 FOR 1*1 TO RASPRINT -*•> SFEXT I 
8103 FOR 1*1 TO RA 

8110 GET A*s IF A*< >" I * AID A*< >"X" AND A*<>-2- THEN 81 
8120 HECC J ) *HE*C J ) NA*S PR INT AS) 

8130 NEXT 1 

8140 FEXT J 

8270 IF HA*0 THEN 8330 
8275 FOR J*l TO HA 

8280 PRIFIT TXT*)-*l*****ri-HALVGARDERIFD FP.-IJ)-*- 
8290 FOR 1*1 TO RAspRIFIT 'S **’) SFEXT I 
8300 FOR 1*1 TO RASPRIFIT "■*) SFEXT I 
8303 FOR 1*1 TO RA 

8310 GET A*! IF A*<>*|- AND A*< > - 2" THEN 8310 
8320 HA*< J)*HA*C J)»A*SPRINT A*) 

8330 FEXT I 

8340 FEXT J 

8350 RETURN 

9000 REM •>>•*>>>•••««<••«••••<<••>•<<• 

9010 REM « NULSTIL SYSTEMVARIABLE * 

9020 REM <•>•«>«•>>•«>•>>•••>«>>•<>•<>• 

9030 HA*0 SHE*0 SRA-01SY»* *• 

9040 FOR K* 1 TO 13s HA*C K >*■• SHE*C K )■•■ SFEXT K 
9030 RETURN 

10000 REM <«>>><>>••>•>•>••••••>>•><><• 

10010 REM » SAVE SYSTEM « 

10020 REM <»•••»••»•••>»•*••«*•<»•<»» 

10030 TXT**‘da GEFt-E SYSTEM 

10040 PRINT TXT* SPR I NT-■*■*■■■■*11X9 ILAEG OATAKA 

10050 GET A*sIFA*=--THEN 10050 

10058 PRIFIT TXT*SPRINT‘a*****HCllS ,- 

10060 PRiNrr-aaaa iventi- 

10062 PRINT-aatM • - ’• 

10070 OPEN 1,I,1,SY* 

10080 PRINT*1,HE 
10090 PRIFIT* 1 ,HA 
10100 PRINT*1,RA 

10110 IF HEC >0 THEN FOR 1 = 1 TO HE SPRINT* 1 ,HE*C I ) SFEXT I 
10120 IF HA< >0 THEN FOR 1 = 1 TO HA s PR INT* 1 ,HA*C I ) s FEXT I 
10130 CLOSE 1 
10140 RETURN 


ILAEG OATAKASETTE- 
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Dobbelt-Snake 



Dette spil krcever to spillere 
Hver har sin egen slange, 
som han/hun korer aindt 
med pd skcermen. 

Undervejs gcelder det om at 
ramme sd mange stjerner 


som mulig. og samtidig und- 
gd at blive lukket inde at 
modstanderens slange. 
Dobbelt-Snake er et spil tuld 
at fart, farver, 1yd og gratikID 
Lars Christensen 


25 SYMBOL 255/0-0.118,204,214,102,220 

30 INK 0,0 INK 1,16,18'INK 2,2 INK 3,24 INK 4,17 INK 5,0-2 
40 LOCATE 7.5 : PEN l'PRINT"S N A K E" 

50 MOVE 120,360 DRAW 540,360.3'DRAM 540,300 DRAM 120,300 DRAW 128,360 
68 LOCATE 4,12 PEN 4 PRINT"For to spillere" 

70 LOCATE 1,17 PEN 2'PRINT"Instruktioner OxnV, PEN 5 PRINT CHP*<143> 

80 LOCATE 1,25 PEN 3 PRINT TAB<5>iCHR*<164);" by LC-Soft." 

90 COSUB 460 

100 IE ;<■$=".i" OR x*="y" THEN COSUB 470 
110 INK 0,0'INK 1,16.18=INK 2.2 INK 3,24'INK 4,7 
120 SPEED INK 7,7’Pointl=0Point2*0 
130 FOR sP i l=1 TO 5 
140 MODE 0 

150 FOR x=l TO 20'PLOT RNDT590+20.RND*360+20,1 DRAWP -4,0 DRAWR 4.4DRAWR 4,-4'D 
RAWR -4,-6 DRAWR -4,6 NEXT 

160 MOVE 0,0 DRAW 639,0.2'DRAW 639,399 DRAW 0,399'DRAW 0,0 
170 x 1 =50' y 1 = 199' x2=579' y 2= 199' xretn i n91 =4 y retn i n91 =0 xretni n92=-4' y ret n i n92=0 
180 WHILE INKEY*<>"" WEND 
190 EVERY 5 GOSUB 400 

200 DI 'xl2=xt+xretnin9l ' y 12=y l+yretnin9l'x2?=x2+xretnin92'y22=y2+yretnin92 test 1 
=TESTf xl2,y12) ■test2=TEST<x22,y22> 

210 IF test 1 = 1 THEN Poir>tl=Pointi+3 SOUND 1.100.10 
220 IF t.est2=l THEN Point2=Point2+3 SOUND 2,200.10 
230 IF testl>1 THEN SOUND 2,200,50'Point2=Point2+10 GOTO 280 
240 IF test2>l THEN SOUND 1,100,50'Point 1=Pointl +10'GOTO 280 
250 MOVE x1,y1'DRAW xl2,y12,3'MOVE x2,y2DRAW x22,y22,4 
260 El'x1=x12'y1=y12 x2=x22 y2=y22 
270 GOTO 200 
230 NEXT sPi1 
290 MODE 1 

300 IF Point1>=Point2 THEN INK 2,24,2 ELSE INK 2.24 
310 IF Point2>=Pointl THEN INK 3,7,13 ELSE INK 3,7 
320 PEN 2 PRINT" SPiIter 1 fik "iPointl," Points" 

330 PEN 3'PRINT" SPitier 2 fik "iPoint2," Points" 

340 INK 1,13 

350 PEN 1'PRINT PRINT PRINT" Nyt sPit (j/n) ?" 

360 GOSUB 460 

370 IF v$="y" OP x*="i" THEN GOTO 110 
380 IF x*=“n" THEN END 
390 GOTO 360 

400 t*st*=INKEY*'IF test**"" THEN RETURN 

410 IF te.stS="z“ THEN t=xretnin9l xretnin9l=-yretnin9l yretnin9l=t 
420 IF tast*="x" THEN t=xretnin9l 'xretnin9l*yretnin9l'yretnin9l 
430 IF te.st*="," THEN t=xretnin92xretnin92=-yretnin92yretnin92=t 
440 IF test**"." THEN t=xretnin92'yretnin92=yretnin92'yretnm92=-t 
450 RETURN 

460 x*="" WHILE x*="" ' x*=L0WER»r INKEY*>' WEND PETIJPN 
470 INK 2,13 
430 MODE 1 

490 PEN 1 PRINT PRINT PRINT TAB'15);"S N A K E" 

500 PRINT PEN 2 PRINT TAB<6V'Styrer-te.ster " PRINT 


510 PRINT TA8<‘ 6 >"SP i Her 1 ' '"j 'PEN 3'PRINT"z" PEN 2'PRINT"' 09 '".PEN 3PRI1 
T"x"i-PEN 2'PRINT"'“ 

520 PRINT TAB<6)"SPilter 2 ■ PEN 3=PRINT"<"»'PEN 2 PRINT"' o9 '":=PEN 3'PRI1 
T">";'PEN 2'PRINT"'" 

530 PRINT'PRINT TAB<6)"'z' o9 '<' til venstre." 

540 PRINT TABC 6 ); "' x' o9 '>' til h"; CHRS< 255 ); " ire. " 

550 PRINT = PRINT TAB(6)"Stiernerne 9iwer ",'PEN 3'PRTNT"3"' PEN 2'PRINT" Points" 
560 PRINT TAB< 6 >"Hvis men rammer kanten el ter" 

570 PRINT TABC6>"en ef slen9erne 9iwer det" 

580 PRINT TAB' 6V'modstenderen ". PEN 3'PRINT"10"; PEN 2'PRINT" Points" 

590 PRINT PRINT'PRINT PEN 1 PRINT TAB<12>“G 0 D K AMP! 1 “ 

600 PRINT'PRINT'PRINT = PEN 3'PRINT TAB' 15 >'"Tryk <sPere>" 

610 WHILE INKEYSO" " 'WEND RETURN 


PEN 3'PRIN 


PEN 2 PRINT"' 09 '"; ! PEN 3'PRIN 


. PEN 2'PRINT" Points" 
K A M P 1 1 * 
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Luk Rummet 



0 PEM***»»*»»«**»**»* 

1 REM*» LUK RUMMET ** 

2 REM*»**»**«*»*»***». 

4 REM COPYRIGHT 1984. 

5 REM BJRRNE MRLMOPEN. 

7 PRINT":]" W=3687S P0KE36879•110 GOSUB7000 GOSUB9000 

8 GOSUB7000 

9 S-0 P-0 0=0 PP=0:00=0 ss*0 F0PHMT07 P0KE8169*8.32• NEXT GOSUB7000 

10 GOSUB7000 PR 1 NT' ,—, r-, r-\ t—* i—\ i—\ 

11 PRINT"I II II II II II II I" 

12 PRINT" I II II II II II II I" 

13 PRINT" I II II II II II II I" 

14 PRINT" II I 121 131 141 151 161 171" 

15 PRINT” •—' w w w w w 

50 PRINT"*" T<1)«INT<RNB<1>*6*1> 

51 T<2)=INT<RND<1>*6»1> 

52 F0RR-1T07 P0KE8169»A. 32 NEXT 

95 PRINT "(JOBCNCUOTS w 

96 FORR-1TO100 NEXT 

98 S=S+1 

99 PRINT"mUnWBR«Wal"S''ll. SLAG ’*P"POINT ■" PRINT 

100 ONT(1)GOSUB10000.10010 10020.10030. 10040 10050 

105 PR1NT"-TTTAWATAM)IL DU LUKKE 'iMiMlMlW ET RUM TRST 91■FATA WAI 

106 PRINT 

110 ONT<2>GOSUB10000.10010.10020-10030.10040.10050 

115 PRINT"TTTAWAT A M/1L DU LUKKE AMATAM TO RUM TRST KPAtAWAW 

120 GETR* IFA**"1"THEN125 

121 1FR*-"2"THEN130 

122 IFR*=CHR*(134>THEN8000 

123 IFH*=CHR*<133)THEN130 

124 GOTO120 

125 IFPEEK<7788*3»(T<2)*T<1>);=48*T<1)*T<2)THEN150 

126 1FPEEKC7788+30T Cl))=48*T(1>RNDPEEK< ?788*3*T(2> >*48*T<2)THEN152 

127 OOTO200 

130 IFPEEK<7788*3*T<1))=48*T<1)RNDPEEK<7788*3»T<2>>*48*T<2>THEN152 

131 IFPEEKC 7788*3*<T<2)+T <1)))=48*T <1>*T<2)THEN150 

132 OOTO200 

150 POKE7788*31*<T<2>♦ T< 1 >>, 32 GOTO 1000 

152 P0KE7788*3*T<1),32 P0KE7788*3*T<2>.32 GOTO1000 

200 F0RB-IT070-PEEK<7788*3*B) 

201 QQ=QQ*Q*<0032) -48* (0032) 

202 NEXTB 

203 P=P+QQ:1FO»=0THENP-P*T<1)*T<2> 

204 SS*8S*S IFP<-44THENOOTO500 

205 OO-0SS>0 

206 1FSS>RTHENR=SS 
210 GOTO10 


10000 PRINT" 

10001 PRINT" 

10002 PRINT" 

10003 PRINT" 

10004 PPINT" 

10005 RETURN 

10010 PRINT- 

10011 PRINT" 

10012 PRINT" 

10013 PRINT" 

10014 PPINT" 

10015 RETURN 

10020 PPINT" 

10021 PRINT" 

10022 PRINT" 

10023 PRINT" 

10024 PRINT" 

10025 RETURN 

10030 PRINT" 

10031 PRINT" 

10032 PRINT" 

10033 PRINT" 

10034 PRINT" 

10035 RETURN 

10040 PRINT" 

10041 PPINT" 

10042 PPINT" 
1004? PPINT" 

10044 PRINT" 

10045 RETURN 

10050 PRINT" 

10051 PPINT" 

10052 PRINT" 

10053 PRINT" 

10054 PRINT" 


501 PRINT"«BOB«niBBB»'SS"ll SLHG REKORD-'R'II " 

502 IFSS>RTHENR=SS 

503 F0RR-1T07:RERDK P0KE38889*R,1 P0KE8169*A.K FORB=1TO20 NEXT 

504 P0KEI4*2,15 POKEW,210-34R NEXT RESTORE FORB-1TO50 POKEU*2-0 POKEW,0 

505 POKES 176.49 

506 0ETA*!FR*-CHR*<133)THEN9 

507 IFH*-CHR*<134>THEN8000 
510 GOTO506 

1000 F0RR-1T07 RERDK P0KE38889*R.1 POKES169*H.K NEXT RESTORE 

1001 P0KE8176.55 

1002 GETR* IFR*=CHR*<136)THEN50 

1003 IFR»=CHR*<134)THEN8000 

1004 GOTO1002 

7000 POKEU+2.15 FORR«1T010 POKEW.225 NEXT P0KEW»2.0 POKEW,0 RETURN 
8000 PRINT"nCOAlTRK FOR SPILLET" PRINT 'BOAPEKORD "R PRINT PRINT END 

9000 PRINT "IXS *■•••*»•»••*•* >* LUK RUMMET •• •*••»••*»•»»*•*• 

9001 PRINT"! I DETTE SP1L SKRL DOMED TERNINGEKRST LUKKE 

9002 PRINT"! SRR MRNGE RUM SOM MULIGT. DU KRN ENTEN BRUOE SUMMEN RF 0JNENE 

9003 PRINT"! -OG LUKKE EET RUM - ELLER BRUOE HVER TERNING FOR SIG 

9004 PRINT"! - OG LUKKE TO RUM - HVIS DU EFTER ET KRST IKKE KRN LUKKE NOGET 

9005 PRINT"T?UM, FRRR DU SUMMEN RFTRLLENE I DE RRBNE RUMSOM -STRRFPOINTS. 

9006 PRINT"T3LL(? RUM LUKKET GIVER ET EKSTRR SLRG- DER REGNES SOM PLUSPOINTS 

9007 PRINT"!5PILLET SLUT VED -45 " 

9008 FORR=1T07:RERDK P0KE38889*fi.I POKES169+fl.K NEXT RESTORE 

9009 P0KE8176,49 

9100 GETR*:IFR*=CHR*<133)THENPRINT"!"■GOSUB7000 GOT 09200 

9101 GOTO9100 

9200 PRINT’!*! ****«(i»***»»**** •* LUK RUMMET *• «*»*«»*»**♦•*»»♦ 

9201 PRINT"! VIDERE * FI 


9202 PRINT"! 

9203 PPINT"! 


NYT KRST * F7 
SLUT = F3 


9205 GETR* : IFR*=CHR*<133)THENPRINT”!" : RETURN 


10055 PETURN 


9206 IFR*-CHR*<134)THEN8000 


9207 GOTO9205 

9500 DRTR20,1,19,20.32,6.32 
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Debug 


I vort l 0 rste nummer af''Soft", 
der udkom til Jul, fik vi besog 
af nogle scetternisser, der for- 
lystede sig lidt pd sideme. 
Vcerst gik det ud over Cosmic 
Changa. hvor halvdelen af 
listningen faldt ud. Den kom- 
mer her i fuld lcengde. 



Cosmic Changa 


0 PRINT "3" 

1 F0RK-54272T054296 POKEK.m 

2 M-255 L-129 

3 P0KE54285.5 

4 P0KE54277,10 P0KE54284.11 

5 PRINT"KEVS“ PRINT"Z-VENSTRE OP’ pvINr’X-VENSTRE" PR1N1 "C-VENbTRE NED 

6 PR1NT"V-NED" PRINT"I1»0P" PRINT", -M8JRE NED” PRINT".-M0JRE" PRINTV-H0JRE OP" 

7 PRINT"RNV KEV TO CONTINUE" 

8 IFPEEKU97>-64TWEN8 

10 PRINT".T POKE53280.0 P0KE53281.8 
20 R-53248 

30 P0KER*21 * 15 POKER*40. 1 POKER* <9 .7 F0KE**41.9 PC*ER*4*. 1 
40 POKE2040<11 POKE2041» 13 PUKE204/', 14 PUKEX043.15 
50 FORK-0TO62 RERDB P0KE784*k,B NEXT 

60 DRTR128.24.1/96-24,6.112/60-14,60.60.60.30.60.120.31.126.248.15.255.240 
70 DRTR7.129.224.7,66.224,63.36.252.255.24.255.63.24.252.7.36.224.7.66.224 
80 DRTA15.255.240,31.126.248,30,60.120.60.60.60.112.60.14.96.24,6.128.24.1 
90 POKE*.120 POKER*1.128 
100 FORK-0TO4STEP3 P0KEK*832.24 NEXT 
110 FORK-0TO28 RERDB P0KE896*K.B NEXI 

120 DRTR0,80,0,0.255,0.1,195.128.3.129.192.3,129.192-3.129.192.3-129.192 

130 DRTR1,195.128,0.255.0.0,60 

140 FORK-0TO62 RERDB PQKEK*960.B NEXT 

150 DRTR137,17.34,0,0.0.36,146.72.0,8.0.137.85.36.32.08.2.186-128.136.0.36 
160 DRTR36.0.136.10.0.160.170.0,170.10,0.160.34.0.136-136.0. <4.2.186.120 
170 DRTR32.0.8,137.185.66.0,0.0.36.136.72.0.0.0.137.17.36 
200 P0KEfl*39.7 P0KE54278. 1 P0KE54296, 15 P—I F-l B-0 C-5 

300 P0KER*6,B POKER* 7.C-5 

301 P0KER*41,RND(1>*15*1 ROKER*2.0 POKE54263.0 P0KE54288.2 PC*E54283.129 

302 IFP-OTHENO-O*10 F-F*.5 IFF>13THENF-13 

305 P-P*l PRINT"* 1 PRLNT8PC<31)”P01NT“P” " 

310 POKER*7,0 P0KER*6.0 H-INTtRNDC1>*8>*1 ONMOOTO500.700.710.720.730.740.750.768 
500 B-0 C-6 Z-F X-F 

510 O-PEEK <197 M F0-12THENP0KE54276.0 P0KE54273.M P0KE54276.L GOTO1000 

520 IFQ-23THENP0KE542/6.8 POKE54273.M P0KE54276.L GOT02808 

530 IFO-20TMENPOKE54276,0 P0KE54273.M P0KE54276.L GO 103800 

540 IFQ-31TMENP0KE54276.0 P0KE54273.M P0KE54276.L GOTO4000 

550 IFQ-36THENP0KE54276.8 P0KE54273.M P0KE54276.L GOTO500W 

560 IF0-47TMENP0KE54276.0 P0KE54273.M P0KE54276.L GOT06800 

570 IF0-44TMENP0KE54276.0 P0KE54273.M P0KE54776-L GOTU7080 

580 IFQ-55TMENP0KE54276.8 PUKE54273.P P0KE54276.L GOT08008 

590 B-B*X C-C*Z P0KER*4,B P0KER*5,C 

600 IFC*5> 128RNDC-15< 128RNDB*»0> 128HNDB-18< 128THEN9006 

610 GOTO510 

700 C-133 B-0 X-FZ-0 GOTO510 
710 C-255 B-5 X-F Z—F GOTO510 
720 C-255 B-128 Z—F X-0 OOTO510 
730 C-255 B-250 X—F Z—F GOTO510 
740 C-133 B-255 X—F Z-0 GOTO5’0 
750 C-8 B-255 X--FZ-F GOTO510 
760 B-128 C-0 X-0 Z-F GOTO510 

1000 D-136 FORK-130TO40STEP-8 D-D-8 P0KER*2.D P0KER*3,k B-B*X C-C*Z P0KER*4.B 
1010 P0KER*5.C IFD*15>BRNDD-20<BRNDK*5>CRNWC-15<CTH6N300 
1020 IFC*5>128RNDC-15<128RNDB*18>128RNDB-10<128THEN9808 
1030 NEXT GOT0510 

2006 K-138 FORD-l28TO20STEP-8 P0KER*2.D PHKEh* 3.K B-8*X C-C*Z P0KER*4,B 
2010 P0KER*5,C IFD*10->BHNDD-20<BRNDK#3>l.RNDK-10<CTMF:N380 
2020 I FC*5> 128RNDC-15< 128RNDB*28> 128RNDB-28< 1 28TMEN9008 
2030 NEXT G0T0518 

3000 D-126 FORK-150TO250S1EP8 D-D-8 P0KER*2.D P0KER*3.K B-B*X C-C*Z P0KER*4,B 
3010 P0KER*5,C IFD*10>B*NDD-28<BRNPK*10>CHNHK-15<1fMEN300 
3020 IFC*5> 1288NUC-15< 128HNDB* 10> 128RNDB-10<. 128THEN9008 
3030 N0<T GOTO510 

4000 D-136 FORK-150TO258STEP8 P0KER*2,D P0KEh*3.K B«B*X c-C*Z P0KER*4.B 

4010 P0KEH*5,C IFD-2>BRNDD-10<-BRNDK*lR>CRNDK-20<CTHENj0v 

4020 IFC*5>128RNDC-15<128RNDB*10>128RNDB-18<128TH6N9088 
4030 NEXT GOTO510 

5000 D-136 FORK-128T045S TEP-8 P0KER*2,D POK ER*3,K B=B*X C*C*Z P0KER*4 ,b 
5010 P0KER*5,C IFD-5>B*NDD-l*<.B*NDk*5>CRNDK-l5<CTHkNj00 
5020 IFC*5> 128RNDC-15< 128RNDB* 10> 128 hNDB-10<128THEN9000 
5030 NEXT GOTO510 

6008 I-138 FORK- 145TO250STEP8 D-D*8 PuKE**2.D P0KER*3,K B-K*X C*uZ P0KER*4.B 
6010 P0KER*5.C-lFD*15>BHNDD-l8<BHNDK*l5XrtNDK-l5<C THEN308 
6020 IFC*5>128HNDC-15<128MNDB*15>128RNDB-15<128THFN9800 
6030 NEXT 00T0518 

7000 K-138 F0RD=143T0255SIEP8 P0KER*2.D PiwtH*3,K K=B*X C-C*Z K*ER*4.B 
7010 P0KER+5.C IFD*20>BRNDD-15CB*NDK*5>CRNDK-10<CTHENd80 
7028 IFC*5>128RNDC-15<128*NDB*28>12**NDB-x8<128T MEN9088 
7030 NEXT G0T0518 

8800 D-133 FORK-133Ti>»5SlEP-8 U»D*8 P0KtH*x,D P0KtR*3.K B=B*X C=C*Z P0KER*4.B 

8010 P0KER*5.C lFD*l5>6RNDD-l5<6RNOK*5XMNliK-15<ClHfcN300 

8020 IFC*5>128RNDC-15^i28*NDR*2u>128*NDB-28<128THEN9W0 

8038 NEXT 60T0518 

9000 POKER+23.8 P0KER*29.8 

9005 POKER*.’.117 POKER** .117 P0KFR*4.8 P0KE5427«.255 P0KE54276 • 0 i-OKt 54273,2 
9010 F0RK=15T08$TtP-.5 P0KE54«v6.l2> P0KER*d9-K -'UK*■-5429*'.K -0KER*42 .k 
9815 NEXT 

9820 IFP>HITHENPRINT 'N" HI=h pvlNi !*•*< 111 f HI>-H“ PRiNTIRB-31-“ScOPE"Hi 
9830 GETR* ; IFA*O‘‘«' , TH£N$038 

9040 POKER*23,0 P0KER*29 U 0=8 P0KER*42.1 0010288 



skat 


Mange Commodore ejere 
fandt ogsd ud af, at skattepro- 
grammet var til en Commo¬ 
dore 64. og ikke til en Spec¬ 
trum. som vort logo angav. 
Til de skuffede Spectrum-folk 
har vi skyndsomt modificeret 
programmet lidt, sd at det og- 
sd korer pd en Spectrum. 

■ Hvis du vil kore skattepro- 
grammet pd en Spectrum 
computer, foretages folgende 
cendringer: 

Forst fjernes alle POKE ordrer, 
da de kun styrer farverne pd 
skcermen. Tag derpd alle ste- 
der, hvor der stdr print' 'invers 
hjerter", og skiff ordren til CLS 
(clear screen), 

Foran alle variabler scettes 
kommandoen LET. Det gcel- 
der ogsd for variabler i f eks. 
linie 5030, hvor LET skal ind- 
fojes efter THEN. 

Alle andre inverse tegn fjer¬ 
nes i de resterende print og in¬ 
put scetninger, da de kun 
bestemmer placeringen pd 
skcermen. 

Nu mangier du at finde linier- 
ne 4080, 5052, 6052. 7092, 
8043. 9043, 10043. 11043, 
13190. 21020. 22160. 23150. 
24250. 24360 og 25200. 

I disse linier stdr computeren 
og venter pd, at en fast bliver 
trykket. Her skriver du hver 
gang LETAS = INKEYS. Lav 
bagefter en ny linie neden- 
under. hvor du skriver 1FA$= 
'THEN (det forrige linjenum- 
mer).D 
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64 geometri 

I geometriprogrammet til 
Commodore 64 slugte vor 
printer de fleste tal i hvert li- 
nienummer. For at bode pd 
lorvirringen bringer vi / 
programmet igen med de / 
korrekte linienumre.D / 


Vigtigt tip 

■ Vi fdr otte henvendelser fra 
IcEsere, der ikke kan tyde de 
inverse tegn pd Commodore 
programmer. 

I de lleste tiltcslde bruges dis- 
se tegn udelukkende til at far- 
ve teksten eller printe den 


pcenere ud pd skcermen. De 
kan derlor ofte undvceres. da 
de ikke betyder noget tor sel- 
ve programmets korsel. 
Bemcerk dog. at tegnene in¬ 
verse hjerter og inverse S skal 
bruges altid.D 



CURSOR NED' 


CURSOR OP’ 


CURSOR HOJRE 


CURSOR VENSTRE 


CTRL 1 


CTRL 2 


CTRL 3 


CTRL 4 


CTRL 5 


CTRL S 


CTRL 7 


CTRL 8 


CTRL 9 


CTRL O’ 


COMMODORE 1 


COMMODORE 2 


COMMODORE 3 


COMMODORE 4 


COt-WODORE 5 


II COMMODORE S 


COMMODORE 7 


S5S! COMMODORE 8 


O-U CLR TASTEN 


HOME TASTEN 


IBM INST TASTEN 




IB Ff=- .— .aniiiF aim-— nr 

20 PRIMT-nsranr GOSUB10000 PRINT"KS''TBB<10.'Ff,"l I RUMFBNG" 

30 PPINT"*-TBB<10>Ff.-3l FLBDE BREBL" 

40 PRlNT-«-TBB'10JF$.-5l OVERFLBDE BREBL" 

45 PRINT-*-TB8<10>Ff,"7 I BFSLUTTE- 
50 GETBS !FBS=""THEH50 
55 IFBf="ll" THEU3000 
60 IFBM-S-THEK2000 

65 IFflt="lTTHENPRINT-:r END 

66 IFBf="*"THEN70 

70 BfI"-"pRINT":T GOSUB10000 PRINT'IlMflll Ft. "1 I PUMFBNG BF EN KUGLE" 

7! PRINT- — IMWF1. -2 I PUMFBNG-BF EN CYLINDER" 

72 PRINT"OM»»»»l-F*.-3l RUMFSNG BF EN PYRAMIDS" 

73 PRINT' OllltMl"Ft.-4 I RUMFBNG BF EN PVRBMIDESTUB" 

74 PRINT F«,-5I RUMFBNG BF EN KEGLE" 

75 PRINT anHIII FI -6 I RUMFBNG BF EN KEGLESTUB" 

76 PRINT"l»»»»»»»| F».-71 TILBBGE TIL HOVEDMENU" 

'80 GETBf IPAf=* "THEH80 

90 B*BSC<Bf> IFfl<1330Rfl>140THENR**"“ GOTO80 

31 B*fl-132 ONBGOTO100,200.300.20,400,500 700,80 

100 INPUT-ITOPBDIUS «F KUGLE ",R SV=4»«»RT3/3 Rf*STRf<R< 

110 PR I NT" Jl 4 * it *"»R"HT3" 

120 PRINT-RUMFBNG * -, FORI*lT09*LEN<Rf> PRINT”-"; NEXT PRINT" =",SV 
130 PRINT- 3 - GOSUB20000 

200 INPLH-3OIH0JDE BF PVRBMIDE ";H 

§20 IhS'T-DGRUNDLINiI V "iov SV-GX»GV«H/3 Ht-STRf<H> GXf=STRf<OX> GVf-STRf<GY> 
230 PRINT"* ;,ox,-*",gv;-*-;h 

240 PRINT-RUIffBNG * ", F0RI*lT03-»LEN<Hf>»LEN<GXf>*LEH'GYf) PRINT"-", NEXT 

245 PRINT- *".SV 

250 PRINT- 3" 

260 GOSUB20000 

300 INPUT"—WIGS BF KEGLE ",R „ 

310 INPUT-IH0JDE BF KEGLE ",M SV=-r*RT2«HX3 Ht-STRt<H> RS-STPJ'P, 

330 PrSht-RIJMFBNG • '* FGRI=lT07FLEN<H»:*LEN!R*j PRINT"-", NEXT PRINT" =".SV 
340 PRINT- 3" 

350 GOSUB20000 

400 INPUT-m»>BDIUS BF CYLINDER _ ,R 
410 INPUT-IH0JIIE BF CYLINDER ",H SV*«»Rt24H 
420 PRINT"WMJMFBNG ■ « »",R"IIT2 »",M."*",SV 
430 GOSUB20000 

500 1NPUT" 710*0 ,’DE Bf PVRBMIDESTUB ‘.H 
510 INPUT-ffiVEPST GRUNDLINIE X ",GX 
520 INPUT'WVERST GRUNDLINIE V ",GV 
530 INPUT"OlEDERST GRUNDLINIE X ".NX 
540 INPUT-OIEDERST GRUNDLINIE Y ",NY 

550 Hf*STRf'H> GXt*STPt<GX> GVt*STRf<GY> HX»=STRJ(NX> NY»=STR«'.HY, 

560 TG*GX40V N0*NV*NX SV=N4'.TG*NG*S0R<TG»NG) )/3 
570 PRINT'OBIVEPST GRUNDFLBDE ,GXi ,0V,, TO 
580 PPINI-OIEDERST ORUNDFLBDE ■- ;NX, , NY,"." ,HG 

590 PRINT"* ",H.-*•<-.TO,-n.-,MO "W ",_HMT 'G. "IN" ,NG-"II" 

600 PRINT-R ■-, F0RI-1T011*LEN':H»>*LEN<G::>>‘LEM'GV»..LEN'.HYI';LEN'N::*' 

610 PRINT---. NEXT PRINT" *";SV 
620 PRINT- 3- 

630 OO3UB20000 

700 INPUT-—40IDE BF FEGLESTUE - W 
710 INPUT"*JVERST PAD I'US -,TR 
720 INPUT-HIEDERST PBDIUS " UR 

730 H«-STPI'H TP|.STRJ<TP> MRI--3TR1-HR' SV*«*H»' NRT2*TRT2»'MR»TR • > 

735 -TNRT+-12*"*TR#*-12*• "•NRn"*".TPH - . 

740 PRINT"* -,SV* 

750 PRINT-R •". F0RI“lTO16*LEH<Ht>*LEN<NR*>»LEN(TR*U PRINT”-", NEXT 

760 PRINT-*-,SV 

770 PRINT- 3" 

780 GOSUB2OO00 

2000 Bt." PRINT-—T GOSUB10000 PRINT' ailllMI'Ft. "I I BPEBL BF EN TREFBNT" 

2004 PRIHT-»*BR»»"F(.-3I BPEBL BF EH PARALLELOGRAM” 

2002 PRINT'.»*»*»**! F«.-5 I BPEBL BF EN TRAPEZ" 

2003 PRINT'WMM»»rF*,-7l BPEBL BF EN CIRKEL" 

2005 PRINT-OBNMM rf.-gi TILBBGE TIL HOVEDMENU" 

2010 GETBf IFBT=--THEN201O 

2020 B-BSC'flf) IFB<133ORB314OTHEH2O10 

2030 B-B-I32 ONBGOTG2100.2200,2300-2400,2010,2010.2010.20 
210O INPUT-—40JDE BF TREK ANT -,H 

2110 INPUT-*3RUNDLIHIE ".C- SV-H4G/2 Ht»STPf,'H> Gf*STRf<G> 

2120 PRINT-* -.H,-»",G 

2130 PRINT-BREBL BF TREKRNT * ", FORI=!T01»LEN<Hf>*LEN<Gf> PRINT"-", NEXT 
2140 PRINT" *-;SV 

2150 PRINT- 2" 

2160 OOSUB2OO00 

22O0 INPUT"—40JDE BF PBRALLELOGPRM ",H 

2210 INPUT-B3RUHDLINIE ",G SV-HfG Ht*STPf'H>' Gf=STPt<G> 

2220 PRIHT-03PEBL BF PBRBLLELOGRAM ,H, , 0. ,SV 

2230 OOSUB200O0 

2300 INPUT-3BH0JDE BF TRAPE2 ",H 
2310 INPUT-BOVERST GRUNDLINIE TO 
2320 INPUT-OIEDERST GRUNDLINIE ",NG 

2330 SV»H»(TG*NG)/2 Hf*STP«'H> TGt*STRt<TG> NGf*STRf<NO> 

2340 PRINT"* . (",T0.NG,">" 

2350 PRINT-APEBL BF TRBPE2 *", F0RI = 1T07.LEN<H»>*LEH'TG»>*LENUIG«.'* PRINT"-"; 

2360 NEXT PRINT- «-;SV 

2370 PRINT" 2- 

2380 GOSUB20000 

2400 INPUT" mapAD I US BF CIRKEL -;R SV*»«RT2 
2410 PRINT-WREBL BF CIRKEL - ir «-R; "IIT2 =-,SV 
2420 GGSUB2O00O 

3WO Bt* - " PRINT- —I- GOSUB1O0OO PRINT aMNNI"Ft, "1 I OVEPFLBDE BF KUGLE" 
3005 PRINT" am ,„| F. -31 O-VERFLBDE BF CYLINDEP" 

30IO PRINT-1—*rFt.-3l OVERFLBDE BF KEGLE" 

3015 PRINT'«»»»»»»! f».-7 I OVERFLBDE BF KEGLESTUB" 

302O PRINT mmil Fl -81 TILBBGE TIL HOVEDMENU" 

3025 GETBf IFBt=--THEH3025 

3030 B=BSCfBf) IFBGI330RB3140THEN3025 

304@ fl=B-132 0NBG0T03100.3200,3300,3400,3025.3025•3025,20 
3100 INPUT"—RADIUS BF KUGLE ",R SV*4*«*RT2 
3110 PRINT"B3'VERFLBIC = 4 * » *-.R."Ilt2 =-,SV 
3120 GOSUB20000 

3200 IHPUT-.TmFBDIUS BF CYLINDER ",R 

3210 input-«ho;de bf cylinder -,h sv= 2 *.»b«h 

3220 PRINT-B3VERFLBDE * 2 * n *",R.H;-*",SV 
3230 GOSUB20000 

3300 INptJT-noiFBDI'JS BF KEGLE ",R 
3310 IHPUT-B5IDELINIE ",S'SV*S»n*R . 

3320 PRINT-njVEPFLBDE * »-,R,-.-,SV 

3380 GOSUB20000 

3400 INPUT-—JVERST RADII'S -;TR 

3410 IHPUT-JNEDERST RADIUS ",NR 

3420 INPUT-IRIDELINIE ".S SV*S»«*<TR*NR> 

3430 PRINT-*3VEPFLADE ■ ♦<".TR:"*-,NR."II, =";SV 

1440 GOSUB2000O • 

IO00O PRINT" r—,—, rr-, r-,* 

10010 PRINT- 1 tHI l|4|H I H-' I 

10020 PPINT- ii_ j. 

10030 RETURN 

20000 PRINT-SOTPV1 KETURNT FORI*IT02OO NEXT 
20010 GETBf !FBi=CHPI' !3 'THENR'JN 
20020 PPINT-TTF-Y. RETURN" F0RI=!TO200 NEXT 
20030 PRINT-TTTr GOTO20000 


3000 fit*-" PRINT- 
3005 PRINT »»»l 
3010 PRINT •»»•! 
3015 PRINT »»»l 
3020 PRINT itMttl 


*<-,TR:"»-.NP."l|, =- 
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60 PAPER 0 BORDER 0 IN* 5 C 
LS 

70 CIRCLE 23B.8S,B CIRClE 235 
.SB,1.5 

BO PLOT 250 113- DPRU -5 -5 
RAU -25,0 DRAU 0,-20 DPR- 6 C 
DRAU 24,0-3.3 

90 INK 6 PLOT 148.100 DRAW 3 
2,0 -O.S DPRU -32,0 -O.r DPR 
0 -48 DPRU f2.0.0.8 DPRU 0 i: 

110 INK 4 PLOT 0.H9 DPRU 32 
0 DRAU O.-B DPRU -32.0 DPRU 0 
,-8 DRAU 32 0 DRAU 0-5 DPR 
-32 0 DPRU 0 -8 DPRU 32 0 DPR 


260 PRINT AT 21,9. INK 5.5C PR 
INT AT 21,26 INK 5. FLA5M U H5 
500 LET CmC + 1 IF C *23-LEV*3 Tm 
EN LET C*0 PRINT RT A<X» PAP 

EP 0,” " 

510 IF C=0 THEN LET X«INT ‘AND* 
15)*1 LET XaX«2 PRINT RT R.*; 

X, "A" 

520 GO TO 200 

750 IF G < ‘ X THEN BEEP .5,20 PE 
TURN 

760 FOP C *7 TO 0 STEP -1 PRINT 
RT R(X),X* INK C;"A" BEEP .05 
C*INT (PND *7i ♦1 NEXT C 
770 PRINT RT R<X),X, PAPER 0 


780 LET SC=SC4LEU RETURN 
300 INK 6 C L5 PRINT 

9B|B "DU BEFINOER DIG 
I EN BLlNDGvbE" "I BRONX *NE- 0 

RK..EN MA53E CRASY S R 

EP EFTERDIG. "NAAR DERE3 RN5IGT 

ER DUKKEP FPEM .FRR SK•GGERNE 

SKRL DU SKYDE 1 ••" 

305 PRINT •DU FLYTTEP DIN PIS 
TOL B MED" 5 & 8 OG SKYDER *^E 
D 0 BEMRERK 1 MINUTS SPIllET 
ID-' TRYK ENTER FOR ?T 

APT" 

820 LET RSalNKEYt IF CODE R*=i 
3 THEN RETURN 
830 GO TO 820 

900 FOP X=0 TO 21 PRIN- ar . > 


HCT 

HoraCfw TMr» 


IF CODE Rf 


910 PRINT RT 19,11. FLASH 1 PR 
PER 7, INK 4 GAME OUEP 
920 PRINT RT 21,3. PAPER 7 SCO 

930’ PRINT RT 21,21. PAPER 7, ■’I 

GM ",MS 

940 INPUT NYT SPIL ’J/Ni 
INE AS IF CODE RfallO OR CODE A 
S *72 TMEN STOP 
950 FLASH 0 GO TO 40 
2000 DATA 8,3 16,14,13.14.17 10 
8 , 7 , 8 . 5 , 6 , 7,7 

9000 RESTORE 9020 FOP XsUSC A 
TO USR "B"*7 READ A POKE - A 
NEXT X 
9010 RETURN 

9020 DATA 23316,146,16.32 56 _3 

,0,124 

9030 DATA O.O 16.16,56,56 25i 25 


Duel i Bronx 


■ Bronx er et trist og ofte 
skcebnesvangert kvarter i 
New York, hvilket du hurtigt 
tinder ud al, nar du lorsoger 
dig med dette Spectrum spil. 

I bedste amerikanerstil skal 
du lorsoge at undgd at blive 

LIUU I- - - 

Vv 


ramt at skud. Hvordan. - ja 
selvtolgeiig ved at skyde for 
dine modstandere. 

"Duel i Bronx" har en tin gra- 
fik, og selve spillet forklarer 
selv. hvordan du skal forhol- 
de sig.D Niels K. Obergaard 


3 DEF FN M <X ,Y) a (X*Y *AB5 1'X-Y 
> > /2 

5 DEF FN U: ) *»65536#PEEk 236' 
4*256*PEEK 23673+PEEk 23872= 50 

7 DEF FN T i I sFN M I FN U 1 ' FN :j 

9 LET M5 *0 

10 PAPER 0 BORDER 0 XNr 5 : 

LS 

15 GO SUB 9000 

20 INPUT INSTRUKTIONER . * 
r*. LINE A* IF CODE A§*I08.OP' C 
ODE AS =74 THEN GO SUB 300 

30 RESTORE 200 DIM A(32 f^C 
F=2 TO 30 STEP 2 READ Ai* %E 
XT F 

40 input S' acrhtdsgrsa ■1-5 
,LEU IF LEU <1 OR LEU '5 THEN GO 
TO 40 

50 LET U=0 LET X«4 LET 3C=0 


120 PLOT 8 119 DRAu 0 -8 DPAU 
8.0 DRAU 0.-0 DRAU -6 0 DRAU 
0,-8 DRAU 6.0 DRAU 0.-8 
130 PLOT 24,119 DPRU 0.-8 PlO 
T 24,103 DRAU 0,-0 
140 INK 2 PLOT 64,40 DRAU *8 
07-2.5 . 

150 POKE 23674,0 POKE 23073.0 
POKE 23672,0 

170 FOR X «1 TO 3 BEEP .05 50 
PAUSE 5 NEXT X 
180 PRINT AT 10.15, INK 2 B 
190 PRINT AT 21.3, INK 5 SCORE 
PRINT RT 21.21, INK 5. HIG« 

200 LET 0-FN TO IF 0-60 Th£n 
GO TO 900 

210 LET F «G- iINKEY § * " 5” AND G 0 
)4(INKEYS = "0 AND G < 31• 

220 IF FoG THEN PRINT RT 18 G 

230 IF FoG THEN PRINT AT 13 . F 

INK 2,"B LET G=F 

240 IF INKEYs= 0" THEN GO SUB " 

50 

250 IF SC'MS TMEN LET MSoSB* LE 
r ii.i 


och 
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1 REM ORMEN 

0 CHRISTIAN B0MLER 

2 LET h = C CPEEK 655353*2553 +PEEK 65528 

3 LET tj=0 


10 INK 0: BORDER 4: PAPER 4: CLS 
>=0: LET d=0: LET a=15: LET 1=3 
20 POKE USR "o"+7,129: POKE USR ' 


‘o", 12 


21 POKE USR "o"+5> BIN 01100110 

100 LET a=a+CINKEYS="8" AND a<>293-CINK 
EY$="5" AND a003 : IF SCREENS C4,a3="*" 
THEN LET d=l 

101 IF SCREENS C4,a3="~" THEN LET d=2 

102 POKE 23692,255 

105 PRINT AT 4,a; INK 7j ,, o" 

106 IF d=l THEN GO TO 1000 

107 IF d=2 THEN LET p=p + 10: BEEP .01,5 
0: IF h<p AND tj=0 THEN FOR n=l TO 10: 
BEEP .01,50: NEXT n: LET tj=l 

108 DIN aSC303 

109 LET d=0 

110 LET aSCINT CRND*303+13="*" 

111 LET aSCINT CRND*303+13="*" 

112 LET aSCINT CRND*303+13="*" 

113 LET aSCINT CRND*303 + 1 3 = "^ 

200 PRINT AT 21 , 05 ’aS 

300 GO TO 100 

1000 IF h >p THEN PRINT AT 0,0;"Rekor den 
er paa :" Jh 

1001 FOR n=l TO 10: PRINT AT 4,a; INK 7; 
"o": BEEP .05,0: PRINT AT 4,a; ‘: BEEP 

.05,0: NEXT n: PRINT AT 4,a;"o"JCHRS 8; 
OUER 1J"*" 

1010 LET 1=1-1 


1015 PRINT AT 10,1J"Du har " ; t ;" l I v til 
bage " 

1016 PRINT " Du har ";p;" points" 

1017 PRINT FLASH l;"Tryk paa 0" 

1018 IF IO0 THEN GO TO 1023 

1019 PRINT AT 9,0; FLASH l;"GAME OUER": 
PRINT AT 12,0; FLASH 1; BRIGHT 1 ;"tryk p 
aa a for at begynde paa et nyt spil" 

1020 IF h <p THEN LET h=p: PRINT AT 20,0 
;"Du slog rekorden med “;h;'' Points": GO 

SUB 2000 

1021 LET n = INT CRND*203 : BEEP . 1,n : BEEP 
.1,n — 1 : BEEP . l,n: BEEP .1,-n : BEEP .1, 

-n-l: BEEP . 1, -n : IF PEEK 23560OCODE "a 
" AND PEEK 23560<>CODE "A" THEN GO TO 1 
021: RESTORE : GO TO 1021 

1022 RUN 

1023 BEEP .1,0: BEEP .1,-1: BEEP .1,1: B 
EEP .1,0: BEEP .1,-1: BEEP .1,-2 

1024 IF PEEK 23560 0CODE "0" THEN GO TO 
1023 

1040 FOR n=l TO 10: BEEP .1,-10: BEEP .1 

, 10: NEXT n 

1050 CLS 

1055 LET d=0 

1060 GO TO 100 

2000 LET k =0 
2005 LET o= P 

2010 IF o >255 THEN LET o=o-255: LET k=k 
+1: GO TO 2010 

2020 POKE 65535 *k: POKE 65528,o 
2030 GO TO 1021 




Du er en saslange. som skal 
bevcege sig ned gennem et 
hav fuldt al sten og svampe, 
som ligger i vejen tor dig. Hvis 
du spiser en svamp Idr du 10 
points, men pas pd du ikke 
rammer stenene, tor sd er du 
dodsens! Du styrer slangen 
med tasterne — 

5 og 8. I linie 

105 er graiik An I/ 1 * 1 

tarrnal ^ n wlW I 
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Le Mans 



Du sidder i den nye "Spec 
trum-racer" med den berem 


te 16/48 K motor. Styregrejer 


ne ligger i tastaturet 


Du drejer rattet til venstre ved 


at trykke tallet 5 og til hajre 


med tallet 8. 


Spectrum-raceren skal kares 


hurtigst muligt uden at ram 


me rabatten 


'Gentlemen, start Your Engi 


nes!"D 


Christian Bamlei 








1 LET h=0 

2 PRINT AT 19,15i I" 

J LET 1=7 

4 LET d=0 

5 POKE USR "i"*1,BIN 00011100 

6 LET t=0 

7 LET 4=0 

8 PAPER 0: INK 7: BORDER 0: INUERSE 0 
PLASH 0: BRIGHT 0: CLS 

11 LET u=0 

100 CLS : BEEP .0005,40 

101 LET t=t*l 

102 LET v=v4CC4=l)-(4=2))*6: LET !«=!♦£( 
!NKEY*="5“)-(1NKEY*="8”) )*5 

103 PRINT AT 19,15; i" 

104 PLOT 0,66: DRAW 255,0: BEEP .0002,5 

0 

105 PLOT 1334(1*1.5),16: DRAW -20ry,50 

106 PLOT 90t[(*l.5),16: DRAW 20*y,50 

107 IF RND<.3 THEN LET 4 = 1NT (RND*3) 

108 BEEP .0005,60 

109 IF v>64 THEN LET 4=2 

110 IF u<-64 THEN LET 4=1 

111 LET f=l»Cw'10) 

120 FOR n=J22 TO 126: IF POINT (n,231=0 
THEN NEXT n 

130 IF n <>127 THEN GO TO 1000 
200 GO TO 100 

1000 IF h <t THEN LET h = l: PRINT AT 0,0; 
Ou her sl44et rekorden" 

1010 PRINT AT 1,0; du k0rte " ;t ;" sec. p 
44 den tur": PRINT "tryk p44 0 lor et ny 
l sp.l*': PRINT AT 10,5; FLASH 1 ;"BANG. 0 
U ER 000": IF 1NKEY$<>"0" THEN GO TO 10 
10 

1020 GO TO 2 



Tegn abonnement pa SOFT. 


SOFT Special er blevet en sd stor succes fra starten, at 
vi har besluttet at udgive Danmarks eneste program- 
blad hver anden mined. 

Det vil sige, at SOFT Special udkommer igen, i april, 
juni. august, oktober. december o.s.v. 

* 

Hvis du vil undgd. at SOFT er udsolgt hos din blad- 
handler. er det en god ide at tegne abonnement. 6 
numre at SOFT Special koster 153 kroner, og du fir 
bladene portofrit tilsendt. Ndede du ikke at kabe far- 
ste nummer af SOFT, kan du bestille bladet pi forla- 
get. Prisen er kr. 27,85. 


Ring og bestil abonnement pd telelon 01-11 28 33 el- 
ler indbetal straks kr. 153 pd postgirokonto 940 60 77. 


Nceste nummer a! SOFT udkommer den 25. april 
1985. 
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>e«, hvordan 
-egget lyder 


.atlske 

wL kan vise 
iyd p6 en TV- 
..^n lungere som spek- 
,/zer. lorvandle 1yd til grafik 
eller uaskrive noder efter den musik. 
der bliverspillel. 

Byg en aktlv subwoofer med lomem- 
me data Konstmktionen rummer en 
10" Vila bas og en 75 watt Hi-Fi tor- 
stcerker med Dual Drive. Subwooie- 
en kan bygges tor ca. 1000 kroner 

Sansui har bygget en at markedets 
mest avancerede kassettebdndop- 
tagere. D-W10 har to indbyggede 
decks og et opbud a! computerstyre- 
de tinesser, som vi aldrig har set ma¬ 
ge til. Lees testen i det nye nummer at 
»ny elektronik*. 

AM Kemi er bedst kendt tor sin kos- 



SRtNoeNoe n-n nyhep. 

Herkandu,se’ 
hvor god lyden er 




Tart pa Sansuis gigant 
kassettedeck 




metik til plader. Nu kommer rense- 
specialisterne tra Kokkedal ogsd 
med egne hovedteletoner. Kan de 
mon klare sig i konkurrencen? 

■ny elektronik* gdr tcet p6 to Hi-Fi ior- 
stcerkere med hver sin tilosoii: Philips 
og Rotel. 

Masser at speendende byg-selv arti- 
kler Professional audioattenuator - 
computer modem - defroster-ur. 

Grundig oversigt: Alt, hvad du bar vi¬ 
de om transistorer. 

Optiske computere er stadig 
science-liction. Men. hvor lcenge? 
Lees den speendende reportage. 

Keb -ny elektronik" nummer 3 hos 
din bladhandler 1 dag. Pris kr. 
21,85. 


Altom 

DflTR 


n ( 


TQRM-DQS 


Markedets bedste hurtig-loader til Commodore 64 
og 1541 diskstation. Rummer en stribe tinesser, der 
gor arbejdet med en 64’er meget nemmere. 
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ill/ 


Pa modul koster TornaDOS kun kr. 345 . 


★ Loader programmer 7 gange hurtigere. 

★ Helt nyt DOS operativsystem. 

★ Nye og nemmere diskkommandoer, bl.a. OLD. 

★ Indbygget resetknap til Commodore 64. 

★ Markering at resterende RAM-plads. 4 

★ Fri definering at funktionstasterne til 
specielle opgaver. 

TornaDOS fas kun hos »Alt om Data« 

St. Kongensgade 72,1264 Kobenhavn K, tlf.: 01 -11 28 33 
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computer 


e "Ye superspij 


Commodore 128 


Kob det nye nummer at 
Alt om Data i kiosken. 
Kun kr. 21,85 


Du kan ogsa tegne abonnement pa 
11 numre for kr. 218,50 pa telefon 
01-11 28 33. 











